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TSEXEC: 







TSEXEC is the executive control module of TSX-Plus. 

It contains routines to perform job scheduling* memory managements 

clock interrupt processing, etc. 

Copyright <c> 1980. 1981. 1982, 1983. 1984, 1935. 
S&H Computer Systems. Inc. Nashville. Tn. 

All rights veBerved. 

Written by Phil Sherrod. 

Clobal definitions 

. GLOBL SCHED. EXEC. STOP. CLKINT. INTLVL. CLKRTI, DIEARG, DIEMSG 

. GLOBL DIEPC. DIESP. SYSHLl. TRPAR5. USP, INBSY, OUTBSY, EXCBUF 

. GLOBL ENQHD. ENOTL. DEO. FDRCEX. UREGO, TRP250, QSRCH 

. QLOBL CHKABT, QHIPRI . FPTRAP. TRP4. TRPIO. STKLVL, ABRTOV 

. GLOBL DOSCHD. INTEN. SYSXIT. SUTOP. MRKTHD. INIJMP 

. GLOBL TSEXEC. FORK, KMNSTR. KMNSTK. KMNPGS 

. GLOBL KMNCHN. QNSPND. INTPRI. TRP14. TRP20, TRP24 

. GLOBL TRP34. EXCINl, INITFL. GTSYMB. QHDSPN. MBFFLG 

. GLOBL ODTTRP. DATIML. DATIMH. UIOCNT, SS, ENSYS 

. GLOBL PMUSER. PMFLGS, PMBASE, PMTOP, PMNBPC. INTENX 

, GLOBL PMPAR. PMRUN. PMCELS. SYNCH. UEXINT. MEMPAR 

. GLOBL SETMAP. JMPO. LOKSWP. MEMSWP. DTLX. SYPNCR. CKUSP2 

. GLOBL CHKUSP, EXCJDB. EM*SOF. MAPSYS. SYSMAP, UEXRTN 

. GLOBL CLKCNT. TIKCNT, TK5CNT. MINCTR. CLKPS, CLKPC 

. GLOBL RUNQHD, RUNQTL. QCPU. QNSPNX. QHDSPX 

. GLOBL BRKPT. USRJOB. SPDJOB. GETMEM. TRYPLS. TRYRGN 

. GLOBL INTPR I , FRKCQE, RUNQHD. SWPCOT. TRYMEM. MEMXPN 

. GLOBL FREMEM. FPUUSE. UMSPSV. CURVC 

, GLOBL INTSTK. INTSND. SS. SSEND. QUNSIG 

. GLOBL FRKPRI. FRKGET. FORKQ. SWPPOS. SWPJOB. CURFRK 

. GLOBL CXTWDS. CXTPAG. CXTPDR. CXTRMN. SLTSIZ 

. GLOBL CXTBUF, CXBOWN. CXBJOB. CXBBAS. CXBSIZ. CXBMDV 

Global references 



GLOBL $GEMAR 

GLOBL CFLAG. MAXSRD. 

GLOBL *DILUP. *INIT. 

GLOBL *VNOTT. GETR'i Q 

GLOBL *INKMN. *SETCC 

GLOBL S*IOFN. S*CPU, 

GLOBL EMTCAD, SPCPS, 

GLOBL S*«RUN. QUECHR 

GLOBL QF*SYN, QF*IOT 

GLOBL MMENBL. SROMMR 

GLOBL S*INWT. S*TMWT 

GLOBL LSW, LSW4. LJSW 



SR*PAR, 

*DISCN, 
*WDISP 
NEWUSR 

*FPUEX. 

CPLEMT. 
*DBGBK 
Ca*JOB 
MEM256 
*DEBUG 
LBSPRI 



SR*PDR, 
LIOCNT, 
, WINDSP 
. VSWPFL 
PO*DBG, 
MAPPAR. 
. DBGBRK 
. S*TWFN 
. EMMAP. 
. BRKENT 
. VPRIVR 



SR*PX. DDTRMP 
lOHLTM. S*SPND 

, $RDSAV. LSWl 1 
PRIVCO 
*SUSPN 
, SWAPER 
, QCDMPL 
lOMAP. SR3MMR 
. *NOUCR 
. CURCP 
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GLOBL LSWS> *SGI 10, $SGHIO, CQ*FLG, QF*SCR 

GLOBL FREIOQ, LCMPL> SYSHLT, CQ*CP 

GLOBL LSTATE, F<3*PRI. FP*MAX, FPfDEF, CP*SYN 

GLOBL CQ*LNK, CQ$RTN- CQ*RO, CQ*Rli CQ*PA5 

GLOBL SB*TXT, SB*PNT, CCFLG, LSCCA, FREFRK 

GLOBL USRJOB, INITGO 

GLOBL RPAR, RPDR, D. FLAG. D*DMON 

GLOBL ERRLOC, JSWLOC, UFPTRP 

GLOBL EM*PFT 

GLOBL EM*UEI, EM*MPR. EH*vJMO, EM*FRK 

GLOBL TSXTX, TRPCOM, SYSDIE, LPRI, VPRIHI, VPRILD 

GLOBL fCTRLC, LSW9, *VIRJB, TRPBPT 

GLOBL LQLINK, *NOABT, CXTBAS, VPAR5 

GLOBL CORUSR, MA*RGN 

GLOBL MINTIM, FP15CKT 

GLOBL CW*FPU, CONFIG, LIOHLD 

GLOBL S**HIP, UPMODE 

GLOBL *INCOR,SYSDIE, FPTRPX 

GLOBL LMEMIN, LBASE, SPSAVE, PCCCR2, PROFLG 

GLOBL QFREE, «NDMEM> LSTSL, CONFIG 

GLOBL UPARO, UPDRO, UP AR 1 > UPDR 1 , HP AR6, PSW 

GLOBL S*WFM, LNBLKS, LPARBS, *MLOCK, UNLOCK 

GLOBL FQ*LNK, FQ*R4. FQfR5, FQ*RTN, FQ*PA6 

GLOBL RMNPDR, UPAR6, UPDR6, UPAR7, UPDR7 

GLOBL UMODE, *IOMAP, S**RT> LCXPAR, FQ*PA5 

GLOBL UHIMEM, FREIOQ,FQ*UFB 

GLOBL LITIME, FQ$R1,FQ$R2, FQ*R3 

GLOBL S*HICP 

GLOBL CW$FPU, viSTKND 

GLOBL MINTIM 

GLOBL VI NT 10 

GLOBL SNMSHD, SB^LNK, *KINIT 

GLOBL NMUHB 

GLOBL LQUAN 

GLOBL BASMAP. LOMAP, HIMAP, FREPGS, *MAPOK, LSW7 

GLOBL S*TMWT, S$1NWT 

GLOBL C<3*PRI,CQ*RNS 

GLOBL MAPUSR 

GLOBL CS*ERR, CS*EOF 

GLOBL PMSIZE 

GLOBL R*UBAS 

GLOBL LSW6 

GLOBL SN*RTN, SN*viOB, SN*ID 

GLOBL OVRHC, OVRADD, O. PAR, KPAR5 

GLOBL CLKRUN, I OP AGE 

GLOBL LNSBLK 

GLOBL LHIPCT, VHIPCT, S*RT, S*LOW 

GLOBL CUPARO, CUPAR 1 , CUPAR6, CUPAR7 

GLOBL CUPDRO, CUPDR 1 , CUPDR6, CUPDR7 
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000003 
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000004 
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000005 
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000006 
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000007 
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000066 
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47 
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48 


000072 


000000 


49 


000074 
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50 


000076 


177777 


51 


000100 


177777 
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000102 
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000000 


54 


000106 


000000 


55 


000110 


000000 


56 


000112 


000000 
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000114 


000000 



MiBc. data cells 



SSEND 



1000 
600 



Astii characterB 



CR 


r= 


15 


IF 


:sz 


12 


BELL 


= 


7 


> 

RUNQHD 


. BYTE 





RUNQTL 


. BYTE 





USRJOB 


. BYTE 





SPDJOB 


. BYTE 





DOSCHD 


. BYTE 





SWPCOT 


. BYTE 





EXCJOB 


. BYTE 





INTLVL 


. BYTE 


-1 


STKLVL 


. BYTE 


-1 


FRKPRl 


. BYTE 





INITFL 


. BYTE 


1 


FPUUSE 


. BYTE 





PROSKP 


. BYTE 


16 


CXBDWN 


. BYTE 





CXBJOB 


. BYTE 





INBSY: 


. BYTE 





DUTBSY 


. BYTE 
. EVEN 





IWTSTK 


. WORD 





INTSND 


. WORD 





DTLX: 


. WORD 





DDTTRP 


. WORD 





SYSMAP 


. WORD 





TRPAR5 


. WORD 





DIEMSG 


. WORD 





DIEARG 


. WORD 





DIEPC: 


. WORD 





DIESP: 


. WORD 





KMNSTK 


. WORD 





KMNSTR 


. WORD 





KMNPGS 


. WORD 





KMNCHIM 


. BLKW 


5 


MRKTHD 


. WORD 





MEMSWP 


. WORD 





LOKSWP 


. WORD 





MBFFLG 


. WORD 





CLKCiMT 


. WORD 


-1 


TIKCNT 


. WORD 


"1 


CLKPC: 


. WORD 





CLKPS: 


. WORD 





D ATI ML 


. WORD 





DAT I Mi J 


. WORD 





TK5CWT 


. WORD 





U IOC NT 


. WORD 






i Top o-P system stack area 
; Base of system stack 



; Carriage-return 
; Line-feed 
;BeU 



Head of 
Tail of 
Number o 
Number o 
Non-zero 
Non-zero 
# of job 
Interrup 
. GE. = 
Current 
Non-zero 
Non-zero 
Counter 
Number o 
Number o 
Number o 
Number o 



exe 
exe 
f J 
f J 



ution state 
ution state 
b that owns 
b that owns 
need to do 
Reschedule 



Mil 

t 1 

for 



use 
f J 
f J 
f J 
f J 



1 i st 
1 ist 

usr data base 
SPD data base 
job scheduling 
when CORTIM expires 
h exclusive access to system 
vel counter 

unning on interrupt stack 
priority 

system initialization being done 
FPU unit in use by current job 
for PRO-350 clock interrupts 
b that owns CXTBUF 
b whose cxt blk is in CXTBUF 
b currently being inswapped 
b currently being outswapped 



Pointer to start of interrupt stack 
Pointer to last word in interrupt stack 

# minutes of uptime for demo system 
Address of breakpoint entry into system ODT 
number of system segment currently mapped 
Kernel PAR5 content when trap occured 
Pointer to system crash message 

Argument value for system crash 

Address of call to SYSHLT 

Kernel par 5 mapping at time of crash 

Address of Kmon stack 

Starting address of Kmon 

# 256-word memory pages needed to run TSKMON 
Save status for Kmon file channel 

Head of mark-time queue list 

# jobs needing memory-expansion outswap 

# jobs needing to be locked in memory 
Non-zero==>MBSsage buffer was freed 



.; # USER I/O OPERATIONS IN PROGRESS 
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001130 




59 
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000000 




60 


000122 


000340 




61 


000124 


000000 




62 


000126 


000000 
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000130 


000000 
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000132 


000000 




65 


000134 


000000 
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000136 


000000 
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000140 


000000 
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000142 


000000 




69 


000144 


000000 




70 


000146 


000000 




71 


000150 


000000 




72 


000152 


000000 




73 


000154 


000000 




74 


000156 


ooooooc 




75 


000160 


000000 




76 


000162 


000000 




77 


000164 


000000 




78 


000166 


000000 




79 


000170 


000000 




SO 


000172 


000000 




81 


000174 


000000 




82 


000176 


000000 




83 


000200 


000000 




84 








85 








86 








87 








88 


000202 
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MINCTR 


. WORD 


600. 


USP: 


. WORD 





INTPRI 


. WORD 


340 


FRKCQE 


. WORD 





SYPNCR 


. WORD 





CURVC; 


. WORD 





CURFRK 


. WORD 





SWPPOS 


. WORD 





SWPJOB 


. WORD 





SLTSIZ 


. WORD 





PMUSER 


. WORD 





PMFLSS 


. WORD 





PMBASE 


. WORD 





PMTOP: 


. WORD 





PMNBPC 


. WORD 





PMPAR : 


. WORD 





PMCELS 


. WORD 


PMSIZE/2 


PMRUN: 


. WORD 





CXTWDS 


. WORD 





CXTPAG 


. WORD 





CXTPDR 


. WORD 





CXTRMN 


. WORD 





CXTBUF 


. WORD 





CXBBAS 


. WORD 





CXBSIZ 


. WORD 





RMWPDR 


. WORD 
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FORK 

Pend 

Addr 

Addr 

Ptr 

Ptr 

# bl 

# of 
PF* 
Base 
Top 
Numb 
Addr 
Numb 
Non- 

# UJO 

# 51 
PDR 
Addr 
Addr 
Addr 
Amt 
PDR 



queue h 
ing syst 

of curr 
ess of c 
to table 
to table 
oc ks use 

user do 
flags fo 

address 
address 
er of by 
ess of p 
er of ce 
zero if 
rds for 
2-byte p 
value to 
ess in c 

of buff 

of data 
of data 
value to 



ead 

em mark-time compl requests 

ent direct interrupt control blk 

urrently running fork routine 

with swap file slot positions 

with #'5 of jobs in swap slots 
d by each slot in swap file 
ing performance monitoring 
r performance monitor 

being monitored 
of region being monitored 
tes per p.m. cell 
m vector area 
lis in pm vector area 
performance mon in progress 
job context block 
ages for job context block 

map job context block 
ontext area of simulated RMON 
er used for accessing cxt blk 

currently in CXTBUF 
currently in CXTBUF 

map to simulated RMON 



End of TSEXEC data area. 

Begin 1024 byte buffer used by TSINIT at this point. 



EXCBUF: 



iBase of area used by TSINIT for buffer 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



Macro to print an error message when a system crash occurs. 

Arguments: 
MB<7 = Name of error message to print. 
ARfe = mptional) argument value to display with error message. 

.MACRO DIE MSCJ, ARCJ 

MOV MSG, €I#DIEMSG 

. IF NB, ARC 

MOV ARG, @#DIEARG 

. ENDC 

CALL e#SYSHLT 

. ENDM DIE 

Macro definition for call global routines residing in mapped system regions 

. MACRO OCALL FWTADD 
.IF D, ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
. ENDC 

CALL OVRHC ; CALL THE OVERLAY HANDLER 

.WORD ENTADD j SPECIFY THE ENTRY POINT 

. ENDM 



MACROS TO ENABLE AND DISABLE INTERRUPTS. 
'DISABL' RAISES THE CPU PRIORITY LEVEL TO 7. 
'ENABL' LOWERS THE PRIORITY TO THE CURRENT OPERATING 
PRIORITY WHICH IS STORED IN INTPRI. 



. MACRO 


DISABL 


BIS 


#340, e#PSW 


. ENDM 


DISABL 


. MACRO 


ENABL 


BIC 


INTPRI, @#PSW 


. ENDM 


ENABL 



; DISABLE INTERRUPTS 



; RESTORE INTERRUPT STATUS 
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3 
4 
5 

6 000202 000137 OOOOOOG 
7 
S 
9 
10 000206 000207 



; Starting point of execution of TSX-Plus. 

j 

i Enter initialization module. 

START: JMP INITGO 

i 

i Call from TSTTY for '^R to allow breakpoint capture for debugging. 

f 

BRKPT; RETURN ; return to TSTTY for echo processing 



TSEXEC — 
SCHED — 

i 
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3 

4 

5 

6 

7 

8 

9 
10 
H 
12 
13 
14 

15 000210 

16 000212 

17 000214 

18 000216 

19 000220 

20 000222 
21 



23 
24 
25 
26 



OOOS 



000230 
000232 

27 

28 

29 

30 000252 

31 000254 

32 000260 

33 000264 

34 000270 



101010 



010603 
012706 
004737 
010337 
105037 



. SBTTL SCHED — Suspend job and look for another 

The SCHED routine is called to suspend the execution of the 

current user and to look for another user to execute. 

SCHED selects the highest priority user who is ready to run 

(or waits for a user to get ready to run)» gets that user into 

main memory, and then returns control over to the user. 

On return from SCHED, the user is ready to run and the execution 

time quantums have been tiet up. 

When called, the user's stack must be in SP. 

All registers are pre&erved. 

Save ail of the user's registers on his stack 



010046 
010146 
010246 
010346 
010446 
010546 



020627 OOOOOOe 



SCHED: 


MOV 


RO, -(SP) 




MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -(SP) 



Check for user stack overflow. 



CMP 


SP, #JSTKND 


BHI 


1* 


DIE 


#EM*SOF, #3 



check the stack limit 
br if stack is ok 
stack overflow 



Say user is no longer executing. 



1$: 



001000 
002416' 
000000(3 
OOOOOOG 



MOV 


SP, R3 


MOV 


#SS, SP 


CALL 


PKSTAT 


MOV 


R3, SPSAVE 


CLRB 


CORUSR 



; Save user's stack pointer 

; Switch to system stack 

iPack status into job context block 

; Save user's stack pointer in his context area 

J User is no longer running 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 000274 


113701 


000006 ' 




14 000300 


001031 






IS 








16 








17 








IS 000302 


004737 


000626 ' 


EXE 


19 








20 








21 








22 








23 000306 








24 000314 


105037 


000004 ' 




25 000320 


113701 


000000 ' 




26 000324 


001413 






27 000326 


026127 


ooooooe 


OOOOOOG 1*; 


28 000334 


101007 






29 000336 


032761 


OOOOOOG 


OOOOOOG 


30 000344 


001007 






31 000346 


116101 


OOOOOOG 




32 000352 


00136r? 






33 








34 








35 








36 








37 000354 






2*: 


38 000362 


000747 







Find a job to run. 

The EXEC module is entered from SCHED to find the next user to run. 

EXEC locates the highest priority user and if that user is 

ready to run starts execution of the user. 

EXEC is also called at the end of TSX initialization to begin 

operation of the system. 

If current job is a real-time job that has acquired exclusive 
access to the system* continue to run it and bypass the normal 
swapping and scheduling process. 



MOVE 
BNE 



EXCJOBi Rl 
GTRDY 



;I5 there an exclusive real-time job? 
i If yes then go try to run it 



Call the swapper and see if it has anything to do. 

:C; CALL SWPCHK .iGive swapper a chance to run 

Now search down the job run queue from highest priority to lowest 
priority looking for a job that is in memory and wants to run. 



D.ISAI3L 

CLRB 

MOVE 

BEO 

CMP 

BHI 

BIT 

BNE 

MOVB 

BNE 



DOSCHD 
RUNQHD, Rl 
2* 



iiiDisable interrupts 

i i ; Say a scheduler cycle has been done 
i i i Point to Ist job in run queue 
; ; i Br if no jobs (system must be idle) 
LSTATE(R1 )» #S**RUN ; ; i Does this job want to run? 
2* iiiBr if there are no jobs that want to run 

#*INCOR. LSW<R1 > ii;Is this job in memory now? 

; i Br if yes 

iiTry next job in list 
; ; Br if there is another to test 



GTRDY 

LQLINK<R1), Rl 
1* 



There are no in-core jobe that want to run. 
Loop in scheduler until one becomes available. 



ENABL 
BR 



EXEC 



; Enable interrupts 

; Keep looking for a job to run 
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SCHED — Suspend job and look for anothtTr 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



We found a job to run. 

The job index number is in Rl. 



000364 
000370 



000376 
000404 
000406 



110137 0000000 



GTRDY: MOVB 
ENABL 



Rl, CORUSR 



i ; ; Say this job is running 
; Enable interrupts 



See if we ars reactivating an old job or starting a nem job. 



032761 
001002 
000137 



0000000 OOOOOOG 
0000000 



BIT #*INIT, LSW<R1) 
BNE 2* 
JMP NEWUSR 



Is this an old or new job?" 

Br if old job 

Oo initialize a new job 



We are reactivating an old job. 

If the execution of this job has been suspended* put job back to sleep. 



000412 
000420 
000422 
000426 
000430 
000436 
000440 
000444 
000450 



032761 
001415 
105761 
00 1 404 
012761 
000406 
012700 
004737 
000137 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
004424 ' 
000302 ' 



2*: 



7*; 



BIT 

BEG 

TSTB 

BEQ 

MOV 

BR 

MOV 

CALL 

JMP 



#*SUSPN, LSW<R1 ) ; Has job's execution been suspended' 

6* ; Br if not 

LIOCNT(Rl) ; Does job have any I/O active now? 

7* ; Br if not 

#IOHLTM, LI0HLD<R1.> J Hold I/O for this job 



6* 

#S*SPND, RO 
ENQTL 
EXEC 



But let it run till I/O stops 

Put job in suspended state 

Put job in suspended state 

Go back to scheduler to find another job 



Set up kernel-mode PAR6 to point to job's context block 

000454 016137 OOOOOOG OOOOOOG 6$: MOV LCXPAR (Rl ) , e#KPAR6 ; Map kpar6 to job's context block 

Set up memory mapping registers for this job. 

Check to see if the memory mapping registers are already loaded 

for the job we want to run. 



000462 
000466 



120137 
001411 



OOOOOOG 



CMPB 
BEQ 



Rl, MAPUSR 
5* 



; Is memory mapping set for job we want to run? 
; Br if yes 



000470 
000476 
000500 
000504 
000506 



032761 
001003 
004737 
000402 
004737 



OOOOOOG OOOOOOG 
001534' 
002276 ' 



000512 
000520 
000522 
000526 
000530 



032761 
001415 
016100 
00 1 407 
052737 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



Memory mapping is not set up correctly for the job we want to run. 
Determine if mapping information in job's context block is set up 
correctly. If so, just load it into PAR registers, otherwise 
call SETMAP to compute memory mapping information. 

BIT #*MAPOK, LSW7(R1 )i Is memory mapping info in context block ok? 

BNE 3$ ;Br if yes 

CALL SETHAP ; Set up memory mapping registers for the job 

BR 5* 

3*: CALL LODMAP ; Load par registers from context block info 

See if double Ctrl-C occured while we were asleep and user 

did a . sec A. 

If so, set status flag in GCCA status word. 

5*: BIT #*SETCC, LSW4<R1 )i Do we need to set controi-c status flag? 

BEft 1* ; Br if not 

MOV LSCCA<R1),H0 ; Does user want control-c trap control? 

BEQ 4* ; Br if not 

BIB #UPMODE, ®#PSW i Set user-previous-mode in PS 



TSEXEC 
SCHED ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

78 
79 
SO 

81 

83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
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Suspend job and look for another 



( 



000536 106510 

000540 052716 OOOOOOG 

000544 106610 

000546 042761 0000000 0000000 4$: 



MF-PD @R0 ; Get current contents of user's flag cell 

BIS #CCFLG, <SP) jSet ctrl-c flag 

MTPD @R0 J Store into cell in user's program space 

BIG #*SETCC, LBW4<R1); Say it has been done 



Unpack job status information from context block. 



000554 013703 0000000 1*: 

000560 004737 002562' 



000564 010306 



000566 004737 002732 ' 



000572 032761 0000000 0000000 

000600 001403 

000602 



MOV 
CALL 



SPSAVE, R3 
UPSTAT 



i Get pointer to job context area stack 
^Unpack status for job 



Switch to job's internal stack. 

MOV R3, SP i Run on stack in context block 

See if hie need to call any completion routines for this job. 

CALL DOCMPL ; Run any pending completion routines 

See if we need to redisplay display windouj for job 

BIT #*WDISP. LSW6<R1 ); Do we need to redisplay window? 

BEQ 9* i Br if not 

OCALL WINDSP ; Redisplay window for job 



Restore user's registers 



000610 012605 9*: 

000612 012604 

000614 012603 

000616 012602 

000620 012601 

000622 012600 



000624 000207 



MOV 




(SP)+, R5 


MOV 




(SP)+, R4 


MOV 




(SP)+, R3 


MOV 




<SP)+, R2 


MOV 




<SP)+,R1 


MOV 




<SP)+, RO 


Return to 


li 


fe! 


RETURN 





/Return from SCHED 
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SWPCHK — See if job iituapping is needed 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



000626 105737 OOOOOOG 
000632 001407 



000634 1 1 3700 000020 ' 
000640 153700 000017' 
000644 001002 



000646 004737 OOOOOOG 



000652 000207 



. SBTTL SWPCHK — See if job swapping is needed 
SWPCHK is called to see if jobs should be swapped into or out of memory. 



SWPCHK; TSTB 

BEQ 



VSWPFL 
9* 



; Is this a non-swapping system? 
; Br if non-swapping system 



Return quickly if the swapper is currently busy 



MOVB 
BISB 
BNE 



OUTBSY, RO 
INBSY, RO 
9$ 



; Outswap busy flag 

; Inswap busy flag 

; Br if swapper is busy now 



The swapper is not currently busy. 

Call the swapper to see if it needs to do any swapping. 



9*: 



CALL 
Finished 

RETURN 



SWAPER 



; Try to do any job swapping 



TSEXEC - 
GET MEM - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



- TSX-PliJS Executive Mo MACRO V05. 04 

- Try to get free memory for a job 



I 



23 
24 
25 
cht 
27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 



000654 010246 



000656 
000662 
000666 
000670 
000672 



000674 
000700 



000702 
000706 
000712 
000716 
000722 
000726 
000730 
000734 



000736 
000740 



016100 
020037 
101402 
00026.1 
00042.1 



004737 
103416 



010261 
072227 
010261 
013700 
072027 
060002 
010261 
000241 



012602 
000207 
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. SBTTL GETMEM — Iry to get free memory for a job 



0000000 
OOOOOOG 



GETMEM is called to attempt to obtain a memory region for a job. 
If the memory space is available it is claimed for the job. 

Inputs: 
RX - Job index numbei^ 
LMEMIN(Rl) = Number of pages of memory needed for job 

Outputs: 
MEMMAP updated to show memory space allocated to job. 
LBASE<R1) = Base page number allocated to job. 

LPARBS<R1) = PAR relocation value for base of job (above context block) 
LCXPAR(Rl) = PAR relocation value for job context block. 
C-fiag set on return if not enough free space was available. 

ETMEM: MOV R2, -<SP) 

See if the total number of free pages is adequate for the request 

MOV LMEMIN<Rl)j RO ; Get total number of pages needed for job 

CMP RO, FREPGS j Are there enough total free pages? 

BL.OS 2* » Br if there are enough total free pages 

SEC } Signal failure on return 

BR 9* 

There are enough total free pages. 

Now see if there are enough contiguous free pages. 



00074:^ 



2*: 



CALL 
BCS 



TRYMEM 
9* 



i Try to find contiguous space for job 
; Br if cannot find free space for job 



We got enough free space for the job. 

Set up information about memory for the job. 



OOOOOOG 

000003 

OOOOOOG 

000164' 

000003 

OOOOOOG 



MOV 
ASH 
MOV 
MOV 
ASH 
ADD 
MOV 
CLC 

FiniBhf?d 



R2, LBASE(R1.> 

#3, R2 

R2, LCXPAR<R1 ) 

CXTPAO, RO 

#3, RO 

RO, R2 

R2, LPARBS(Rl) 



iBase 512-byte page number assigned to job 

i Convert to 64-byte page number 

iThis is value for PAR to map to job context 

;# 512-byte pages used by job context block 

; Convert to # 64-byte pages 

jAdd # pages used by job context block 

iThis is value for 1st PAR register for job 

; Signal success on return 



9*: 



MOV 
RETURN 



<SP)+, R2 



TSEXEC - 
IRYMEM - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 

26 
27 

S.S 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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000742 
000744 
000746 
000750 
000754 



000756 
000764 
000770 



000772 
000776 
001000 
001002 
001004 
001006 
001010 
001012 



001014 
001016 
001020 

001022 
001024 
001026 
001030 
001032 



001034 
001036 
001040 
001042 
001044 



010346 
010446 
010546 
013746 
010046 



013737 
013704 
005000 



013703 
020403 
103036 
1 60403 
105724 
00 1 402 
077303 
000431 



011605 
005304 
010402 
105724 
001003 
005305 
001407 
077305 



005402 
060402 
020200 
101753 

010200 



. SBTTL TRYMEM — Try to allocate memory space for a job 

TRYHEM is called to attempt to locate a free memory region of 

a specified size. If the region is found* it is claimed for the job. 

Inputs: 
RO =-• Number of 512~byte pages wanted. 
Rl = Job index number. 

Outputs: 
C-fiag cleared ==> Successfully got the region. 
C-flag set ==> Could not locate a large enough region. 
RO ~ Largest free region available. 
R2 = Base page number of region gotten (only if C~flag cleared). 



0000000 



TRYHEM: MOV 
MOV 
MOV 
MOV 
MOV 



R3, ~<SP) 
R4, -<SP) 
R5, -<SP) 
@#KPAR5, -<SP) 
RO, -(SP) 



; Save system PAR 5 mapping 

j Save request size on top of stack 



Set up pointers to memory map table 



OOOOOOG OOOOOOG 
OOOOOOG 



MOV 
MOV 
CLR 



MAPPAR, @#KPAR5 ; Map PAR 5 to the mem allocation table 

LOMAP, R4 ; Pointer to 1st user available entry in MEMMAP 

RO ; Save largest free region in RO 



Search for the start of s free region 



OOOOOOG 



8*: 



1*: 



MOV 


HI MAP, 


R3 


CMP 


R4, R3 




BHIS 


10* 




SUB 


R4, R3 




TSTB 


(R4) + 




BEO 
SOB 
BR 


2* 

R3, 1* 
10* 





Found a free region 



7.^: 



4*: 



MOV 


(;SP),R5 i 


.DEC 


R4 ; 


MOV 


R4, R2 .: 


TSTB 


(R4)+ > 


BNE 


3* ; 


.DEC 


R5 ; 


BEG 


5* > 


SOB 


R3, 4* .: 



Pointer past last user page entry in MEMMAP 

Are \ue beyond end of last possible page? 

Br if beyond end of user memory region 

Calc # pages remaining to be checked 

Is this page freeT-* 

Br if the page is free 

Loop if more pages remain to be checked 

Br if no free region 



Determine how large it is. 



Get requested number of pages 

Point to ist entry in page table 

Remember pointer to Ist page entry 

Is this page free? 

Br if not 

Does this satisfy the request? 

Br if yes 

Loop if more pages left to check 



€ 
I 

i 
i 

I 
i 



This region is not largp enough. 

Remember size of largest free region seen. 



3^: 



NEG 


R2 


ADD 


R4, R2 


CMP 


R2, RO 


BLOS 


8* 


MOV 


R2, RO 



iCalculate size of this free region 

i Is this the largest free region seen so far? 

; Br if not 

j Remember size of largest free region 
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58 001046 

59 

60 

61 

62 

63 001050 

64 001052 

65 001054 

66 001056 

67 001062 

68 001064 

69 001066 

70 001072 

71 001074 
72 

73 

74 

75 001076 

76 

77 

78 

79 

80 

81 

82 

S3 

84 



001100 
001102 
001106 
001110 
001112 
001114 



00075.1. 



010203 
011605 
010500 
160537 
110123 
077502 
163702 
000241 
000401 



000261 



012605 
012637 
012605 
012604 
012603 
000207 



BR 



e* 



Page 10-1 



; Continue searching 



We found a free region of adequate size. 
Claim the region for this job. 



OOOOOOG 



OOOOOOG 



1$ ; 



71>: 



MOV 


R2, R3 


MOV 


(SP),R5 


MOV 


R5, RO 


SUB 


R5,FREPGS 


MOVE 


Rl, (R3) + 


SOB 


R5, 7* 


SUB 


BASMAP, R2 


CLC 




BR 


12* 



j Get base page number of region 

; Get request size 

; Return request size in RO 

; Decrease total number of free pages 

jMarN pages as in use by this job 

i Get page number of start of region 
; Signal success on return 



i 
I 
I 
f 
i 

i 



Could not find a large enough region 



10*: 



SEC 



F i n i r> h e d 



12*: 



OOOOOOG 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



j Signal failure on return 



(SP)+,R5 ; Pop request size (don't change c-flag) 
<SP)+» @#KPAR5 J Restore system PAR mapping 
(SP)+, R5 
<SP)+, R4 
(SP)+, R3 



i 
i 
i 



TSEXEC 
f- RE MEM ~ 

1 
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3 

4 

5 

h 

7 

S 

9 
10 
11 
12 

13 001116 

14 001120 

15 001124 

16 001126 
17 

18 

19 

20 001130 

21 



. SBTTL FREMEM — Free a memory region 
FREMEM is called to free an area of memory. 



Inputs: 
R2 = Base 512-byte page # of start of region. 
RO ~ Number of 512~byte pages in region being freed. 

Outputs: 
FREFOS is increased by number of pages being freed. 
MEMMAP is altered to show that the pages are free. 



010246 
013746 
010046 
001411 



0000000 



FREMEM: MOV 
MOV 
MOV 
BEQ 



R2, -<SP) 

@#KPAR5, -(SP) .; Save system PAR 5 mapping 

RO, -<SP) 

9* ; Br if no pages being freed 



013737 OOOOOOe OOOOOOG 



23 

24 001136 060037 OOOOOOG 

25 



28 001 

29 001 

30 001 
31 

32 
33 

34 001 

35 001 

36 001 

37 001 



Map PAR 5 to the memory allocation table 

MOV MAPPAR,@#KPAR5 ; Map PAR 5 to the memory alloc table 
Indicate that lue have more free memory 

ADD RO, FREPGS ; Increase # free pages 
Mark pages as free in MEMMAP 



142 
146 

150 



152 
154 
160 

162 



063702 
105022 
077002 



012600 
012637 
012602 
000207 



OOOOOOG 



1*: 



ADD 

CLRB 
at 



SOB 



F i n i shed 



9$: 



OOOOOOG 



MOV 
MOV 
MOV 

RETURN 



BASMAP, R2 
<R2) + 
RO, 1* 



<SP)+, RO 
<SP)+, @#KPAR5 
<SP)+, R2 



; Point to entry for first page 
J Mark pages in region as free 



; Restore system PAR 5 mapping 



i 
i 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 

14 001 

15 001 
16 

17 

10 

19 001 

20 

21 

22 

23 001 

24 001 

25 001 

26 001 

27 001 

28 001 

29 001 

30 001 

31 001 

32 001 

33 001 

34 001 

35 001 

36 001 

37 001 
39 001 

39 001 

40 001 
41 

42 
43 

44 001 

45 001 

46 001 



164 
166 



17^ 



200 
204 
206 
210 



220 



232 
236 
240 
242 
250 
252 
256 
262 
266 



270 

274 
276 



010246 
013746 



013702 
005000 
105722 
002401 
005200 
020237 
103772 
166100 
166100 
012702 
020201 
001410 
032762 
001404 
166200 
166200 
162702 
001363 



012637 
012602 
000207 



. SBTTL TRYPLS 



Determine # memory pages available for PLAS 



TRYPLS is called to determine the total number of user memory pages 

which could be used for a PLAS region. 

This routine is placed in Exec because u>e must use PAR 5 to access 

the memory allocation table. 

Inputs; 
R.I ~ Current job index number. 

Outputs: 
RO = Number of 512-byte pages available for a PLAS region. 



0000000 



TRYPLS: MOV 
MOV 



R2, -(SP) 
@#KPAR5> -<SP) 



013737 OOOOOOG 0000000 



j Save system PAR 5 mapping 
Map PAR 5 to the memory allocation table 

MOV MAPPAR, e#KPAR5 ; Map PAR 5 to the memory alloc table 
Count number of pages available for a PLAS region 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOC OOOOOOG 

OOOOOOG 
OOOOOOG 
000002 



15*: 



16* 



7*; 



8*: 



OOOOOOG 



Point to base of memory map 

Count pages in RO 

Is this page available for user jobs? 

Br if not 

Count number of user pages 

Checked all pages? 

Br if not 

Subtract space already allocated to this job 

Including other plas regions 

Get index number of last job 

Is this our job? 

Don't count our job again 
#*MLOCK ! UNLOCK, LSW6<R2) ils this job locked in memory? 

i Qt if not 
;If locked/ we can't use its space 

J More jobs to check? 
; Br if yes 



; Restore system PAR 5 mapping 



MOV 


LOMAP. R2 


CLR 


RO 


: TSTB 


(R2) + 


BLT 


16* 


liMC 


RO 


CMP 


R2, HI MAP 


BLO 


15* 


SUB 


LNBLKS<R1).R0 


SUB 


LNSBLK<R1),R0 


MOV 


#LSTSL> R2 


CMP 


R2, Rl 


BEQ 


8* 


BIT 


#*MLOCK ! *NLOC 


BEO 


8* 


SUB 


LNBLKS<R2)> RO 


SUB 


LNSBLK<R2>, RO 


SUB 


#2, R2 


BIME 


7* 


Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+, R2 


RETURN 





TSEXEC — 
TRYRGN ~- 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 
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21 001300 

22 001302 

23 001304 

24 001306 

25 001310 

26 001314 
27 

28 
29 

30 001316 

31 001324 

32 001330 
33 

34 
35 

36 001332 

37 001334 

38 001340 

39 001342 

40 001344 

41 001346 

42 001350 

43 001356 

44 001360 

45 001362 
46 

47 
48 
49 

50 001364 

51 001366 

52 001370 

53 001372 

54 001374 

55 001400 

56 001402 

57 001404 



010146 
010346 
010446 
010546 
013746 
010046 



013737 
013704 
005000 



010403 
163703 
003463 
114401 
00 1 407 
002404 
032761 
00140ri; 
077310 
000452 



011605 

010402 
005305 
001424 
020437 
101413 
U4401 
00140D 



. SBTTL TRYRGN — Iry to allocate memory for global region 

TRYRGN is called to attempt to locate a free memory area for 

a shared global (PLAS) region. The allocation is made in 

the highest available section of meory. 

If a free area of adequate size is found* it is claimed for the 

region. If it is necessary to swap jobs to free up a large 

enough aresi the base of the area to be gotten is returned. 

Inputs: 
RO = Number of 512-byte pages needed for region. 

Outputs: 
C-flag cleared ==> Free area found and allocated for region. 

R2 = Base page # of region gotten. 
C-flag set ==> Could not find free area. 

R2 = ==> Impossible to collect that much free space. 

RO = Largest available area. 

R2 non-zero ==> Swapping needed, R2=base page # of region. 



OOOOOOG 



TRYRGN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R3, -<SP> 
R4, -(SP) 
R5, -<SP) 
@#KPAR5, -<SP) 
RO, -<SP) 



ooooooe 

OOOOOOG 



OOOOOOG 



; Save requested memory size on top of stack 

Set up pointers to memory map table 

MOV MAPPAR, @#KPAR5 ; Map PAR 5 to memory allocation table 
MOV HIMAP, R4 ; Pointer past last entry in memory map 
CLR RO ; Save largest area found in RO 

Search for the start of a free region 



OOOOOOG 



S*: 



1$: 



OOOOOOG OOOOOOG 



6$: 



MOV 


R4, R3 


SUB 


LOMAP, R3 


BLE 


10* 


MOVE 


-(R4), Rl 


BEG 


2* 


BLT 


6* 


BIT 


#*MLOCK, LSW6<R1> 


BEQ 


2* 


SOB 


R3, 1* 


BR 


10* 



Get pointer above top of next area to check 

Get # pages left to check 

Br if we have checked all pages 

Is this page in use? 

Br if page is free 

Br if page not available to user jobs 

Page belong to job that's locked in memory? 

Br if not 

Continue searching for start of free area 

Br if no free area 



Found the start of an available area. 
Determine houj large it is. 



:*: 



OOOOOOG 



4*: 



MOV 


(SP>,R5 


MOV 


R4,R2 


DEC 


R5 


BEQ 


5* 


CMP 


R4, LOMAP 


BLOS 


13* 


MOVE 


-(R4),R1 


BEQ 


14* 



Get requested number of pages 

Save pointer to highest avail page in area 

Do itie only need 1 pageT' 

Br if yes 

Are we down to 1st page?" 

Br if yes 

Is this page in use? 

Br if not 



TSEXEC — 
TRYRGN — 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

7S 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 
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001406 
001410 
001416 
001420 
001422 
001424 
001426 



001430 
001432 
001434 
001436 
001440 
001442 



001444 
001446 
001450 
001452 
001456 
001460 
001462 
001464 



001466 
001470 

001472 
001476 
001502 
001504 
001506 



001510 
001512 



001 
001 
001 
001 
001 
001 
001 



514 
516 
522 
524 
526 
530 
532 



002411 
032761 
001005 
005305 
001410 
077315 
000401 



005202 
160402 
020200 
101735 
010200 
000733 



011605 
010500 
010402 
163702 
010403 
105723 
00 101 3 
077503 



010403 
011605 
160537 
1 1 2723 
077503 
000241 
000402 



005002 
000261 



012605 
012637 
012605 
012604 
012603 
012601 
000207 



0000000 0000000 



OOOOOOG 



OOOOOOG 
0000000 



14*: 



BLT 


3* 


BIT 


#*MLOCK, LSW6<R1) 


BWE 


3* 


DEC 


R5 


BEQ 


5* 


SOB 


R3, 4* 


BR 


3* 



Br if page not available to user jobs 

Page belong to job that's locked in memory? 

Br if yes 

Does this satisfy the request? 

Br if yes 

Loop if more pages need to be checked 

This area is not large enough 



This region is not large enough. 

Remember size of largest free region seen. 



13$: 
3*: 



OOOOOOG 



INC 


R2 


SUB 


R4, R2 


CMP 


R2, RO 


BLOS 


8* 


MOV 


R2, RO 


BR 


S* 



;Calc # pages in area 

i 1b this the largest free area seen so far? 

i Br if not 

; Remember size of largest free area 

i Continue searching 

We found an available area of adequate size. 

See if the area is completely free or if job swapping will be 

required to free it. 



5«: 



16*: 



MOV 

MOV 

MOV 

SUB 

MOV 

TSTB 

BNE 

SOB 



(SP),R5 
R5, RO 
R4. R2 
BASMAP, R2 
R4, R3 
(R3) + 
15* 
R5> 16* 



Get # pages needed for region 

Return request size in RO 

Get pointer to loioest entry in free area 

Convert to page number 

Get pointer to 1st page in area 

Are all pages free now?" 

Br if not — Swapping will be required 

Test all pages in region 



The area is free. Claim it for the region. 



17*: 



MOV 

MOV 

SUB 

MOVB 

SOB 

CLC 

BR 



R4, R3 
(SP), R5 
R5, FREPGS 
#MA*RGN, <R3) + 
R5, 17* 

12* 



Get pointer to base of area 

Get # pages in region 

Decrease total number of free pages 

Say area used for shared region 

Claim entire area 

Signal success on return 



i C 
i R 

10*: 
15*: 



Duld not find a large enough area. 

eturn in RO the size of the largest area found. 



CLR 



Ri 



F i n i shed 



12*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, R5 
(SP)+, @#KPAR5 
(SP)+, R5 
(SP>+f R4 
(SP)+, R3 
<SP)+, Rl 



Say could not find an area 
Signal failure on return 



Pop request size (don't alter C-flag) 

Restore PAR 5 mapping 



c 

i 
i 
I 
i 
i 
i 

€ 

I 

t 

i 
i 
i 
€ 

I 
( 
* 
i 
i 
i 



TStXEC — 
SETMAP — 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
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00 
00 
00 
00 



00 
00 



20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 00 

35 00 

36 00 

37 00 

38 00 

39 00 

40 00 

41 00 
42 

43 00 

44 00 

45 00 

46 
47 

48 
49 
50 
51 

52 
53 

54 00 

55 00 

56 00 

57 00 



1534 
1536 
1540 
1542 



1544 
1552 



1554 
1560 
1564 
1572 
1600 
1606 
1614 



1630 
1634 
1640 



1642 
1644 

1650 
1656 



010246 
010346 
010446 
010546 



032761 
00 1 433 



005037 
005037 
012737 
012737 
012737 
012737 
012737 
012737 

012704 
012705 
000411 



005004 
012705 
032761 

00 1 402 



. SBTTL SETMAP — Set up memory mapping registers for a job 

SETMAP is called to load the memory mapping registers for a job. 
The user mode registers are set to point to the user program space. 

I n p u t B 
Rl = -Job index number. 

LNBLKS - # 256-uiord blocks assigned to job. 
LPARBS = Physical address <32-ujord block #) of job's virtual address 0. 

Outputs: 
Usei — mode PAR and PDR registers are loaded. 

Mapping information is stored in CUPAR and CUPDR cells in job's 
context block. 



SETMAP : MOV 
MOV 
MOV 
MOV 



R2i -(SP) 
R3, -(SP) 
R4, -(SP) 
R5> -(SP) 



OOOOOOG 00000O(5 



See if we are setting up mapping for Kmon or a regular user job. 

BIT #*INKMN. LSW4(Rl)i Is Kmon running? 

BEQ 7* ; Br if not 

Set up mapping registers for Kmon as follows: 
000000-037777 — > 000000-037777 (Map over TSGEN) 
040000- (top of Kmon) ■ — .> Job program space 



140000-157777 
160000-177777 



> viob context area 

Simulated Monitor vector table 



Map virtual page (000000-017777) to physical TSGEN; allow write access. 



OOOOOOG 

OOOOOOG 

077406 

077406 

000200 

000200 

077406 

077406 

000004 
000016 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



CLR e#UPARO 

CLR CUPARO 

MOV #77406, @#UPDRO 

MOV #77406, CUPDRO 

MOV #200,@#UPAR1 

MOV #200,CUPAR1 

MOV #77406, e#UPDR 1 

MOV #77406, CUPDR 1 



j Map virtual page to physical page 

; Save info in context block 

; 4kw window, allow read S< write access 

i Save info in context block 

j Map virtual page 1 to physical page 1 

; 4kw window, allow read & write access 



000016 
OOOOOOG 



OOOOOOG 



Now enter code to map virtual pages starting with # 1 to job program area. 

MOV #4, R4 J Start mapping with page # 2 

MOV #14. , R5 i End mapping with page # 7 

BR 6* 

We are mapping an ordintjrij user job. 
Set up mapping as follows: 

000000-(top of program) — > Job program space 

160000-177777 .> Monitor vector table 

Set up user mode mapping registers. 

7$: CLR R4 ; Start mapping with page # 

MOV #14. , R5 ; Assume we should map through page 7 

BIT #$IOMAP, LSW6(R1 ); Does job want page 7 mapped to I/O page? 

BE(3 6* J Br if not 



i 
I 

4 

I 
« 

4 
t 
< 

i 
i 

€ 

i 

i 
i 
i 
i 
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SETMAP — 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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001660 
001664 
001670 
001674 
001700 
001704 
001706 
001710 
001714 
001716 
001722 
001724 
001726 
001730 
001734 
001740 
001744 
001750 
001754 
001760 
001764 
001770 
001772 



001774 
001776 
002000 
002004 
002010 
002014 



002016 
002024 



002026 
002034 
002042 
002050 
002056 



002060 
002066 
002070 
002074 
002100 
002104 
002110 
002114 



012705 
016102 
163702 
072227 
016103 
010200 
001432 
020027 
101402 
012700 
160002 
005300 
000300 
052700 
042700 
010064 
010064 
010364 
010364 
062703 
062704 
020405 
003744 



02040 r5 
101007 
005064 
005064 
062704 
000767 



032761 
0014115 



012737 
012737 
012737 
012737 
000426 



032761 
001022 
013702 
162702 
072227 
066102 
010237 
010237 



000014 

OOOOOOG 

000164' 

000003 

0000000 



000200 
000200 



000006 

100261 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000200 

000002 



6$; 



2$: 



1*: 



les, only set up 

# 256-iDorcl block 
;ract # blocks us 

to # 32-ujord bio 
base block # of 

# 32~ujord blocks 
f finished 
of 128 blocks pe 
f ok 
gn 128 32-ujord b 

# blocks left af 

# blocks - 1 

# blocks in left 
)uj read & write a 

sure unused PDR 
PDR for page 

info in context 
PAR for page 

info in context 

mce page base bl 

mce register poi 

k for last PAR r 

10 next page 



Finished mapping all pages in user program space. 
Disallouj access to other pages. 



MOV 


#12. ,R5 


If y 


MOV 


LNBLKS(R1)>R2 


Get 


SUB 


CXTPAG, R2 


Subt 


ASH 


#3, R2 


Cvt 


MOV 


LPARBS(R1),R3 


Get 


MOV 


R2, RO 


Get 


13 EQ 


8* 


Br i 


CMP 


RO, #128. 


Max 


BLOS 


1* 


Br i 


MOV 


#128. > RO 


Assi 


SUB 


RO, R2 


Get 


DEC 


RO 


Get 


SWAB 


RO 


Put 


BIS 


#6, RO 


Alio 


BIC 


#100261, RO 


Make 


MOV 


RO, UPDR0<R4> 


Set 


MOV 


RO, CUPDR0<R4) 


Save 


MOV 


R3, UPAR0<R4) 


Set 


MOV 


R3, CUPAR0<R4) 


Save 


ADD 


#128. , R3 


Adva 


ADD 


#2, R4 


Adva 


CMP 


R4, R5 


Chec 


BLE 


2* 


Go d 



mapping through page h 
s assigned to job 
ed by context area 
cks for job 
job area 
left to be assigned 

r page 

locks to this page 
ter this page 

byte 
ccess to the page 
bits are zero 

block 

bloc k 
ock number 
nter 
egister mapped 



8*: 



OOOOOOG 
OOOOOOG 
000002 



CMP 
BHI 
CLR 
CLR 
ADD 
BR 



R4, R5 

5* 

UPDR0(R4) 

CUPDR0<R4) 

#2, R4 

8* 



; Have we done all pagesT-" 

; Br if yes 

jDisallou all access to the page 

; Save info in context block 

; Move on to next page 



See if me should map user par7 to simulated Rmon or to I/O page. 



OOOOOOG OOOOOOG 5*: 



BIT #«IDMAP, LSW6<R1 )i Does job want to access I/O page? 
BEO 11* ; Br if not 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
077406 OOOOOOG 
077406 OOOOOOG 



Map user par7 to I/O page. 

MOV #IOPAGE, ©#UPAR7 
MOV #IOPAGE, CUPAR7 
MOV #77406, @#UPDR7 
MOV #77406, CUPDR7 
BR 4* 



Set address for PAR7 

Set info in context block 

Set read/write access and 



full page size 



Map user page 7 (160000-177777) to simulated monitor vector table. 



OOOOOOG OOOOOOG 11$: BIT 

BNE 

000170' MOV 

OOOOOOG SUB 

177772 ASH 

OOOOOOG ADD 

OOOOOOG MOV 

OOOOOOG MOV 



#*VIRJB, LSW9<R1 ); Is this a virtual job' 



4* 

CXTRMN, R2 
#CXTBAS, R2 
#-6. , R2 
LCXPAR(R1 ),R2 



J If yes then don't alter user's PAR 7 

iGet virtual address of RMON in context blk 

;Get offset to RMON within context block 

; Convert offset to 64-byte units 

;Add PAR base for context stbb 

j Map user page 7 to table 

i Save info in context block 



TSEXEC - 
SETMAP - 

115 
116 
117 
US 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
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002120 
002126 



002 
002 
002 
002 
002 
002 
002 



134 
142 
144 
150 
154 
160 
166 



002174 
002176 
002202 
002204 
002210 
002214 
002222 
002230 
002234 
002240 



002246 
002254 
002256 



002264 
002266 



013737 
013737 



032761 
001414 
016100 
010037 
010037 
013737 
013737 



005002 
016200 
001412 
010062 
010062 
016262 
016262 
062702 
020227 
101756 



110137 
032761 
001403 
052761 



012605 
012604 
012603 
012602 
000207 



000200^ 0000000 
000200' 0000000 



0000000 OOOOOOG 4f: 

OOOOOOG 
0000000 
OOOOOOG 

000166' OOOOOOG 
000166' OOOOOOG 



OOOOOOG 



10*: 

13*: 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000002 14*: 

000016 



MOV 
MOV 



RMNPDR, e#UPDR7 
RMNPDR, C\}PDR7 



Set up mapping control 
Save info in context block 



Map user page 6 to context block if KMON is running 



BIT 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 



#*INKMN, LSW4(R1); Is Kmon running' 



10$ 

LCXPAR(R1),R0 
RO, e#UP AR6 
RO, CUPAR6 
CXTPDR. €#UPDR6 
CXTPDR, CUPDR6 



; Br if not 

; Get PAR value to map context block 

; Map user page 6 to job context area 

i Save info in context block 

jAllouj read and write access 



See if job has any associated shared run-time systems 



CLR 
MOV 
BEO 
MOV 
MOV 
MOV 
MOV 
ADD 
CMP 
BLOS 



R2 

RPDR(R2), RO 

14* 

RO, UPDR0(R2) 

RO, CUPDR0(R2) 



i Init table index for PARO 
i Do ue need to load this PAR? 
; Br if not 

; Set PDR control flags 
; Save info in context block 
RPAR<R2), UPAR0<R2)J Set PAR value 
RPAR<R2),CUPAR0<R2)i Save info in context block 
#2, R2 i Advance PAR table index 

R2, #2*7 ; Have we done all 7 PAR'S? 

13* J Br if more to load 



Set flag that says mapping information in job context block is valid 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



MOVE 
BIT 
BEQ 
BIS 

Finished 

9* : MOV 
MOV 
MOV 
MOV 
RETURN 



RliMAPUSR J Say memory mapping set up for this job 
#*KINIT, LSW(R1 ) ;Ha5 Kmon finished initializing context block? 
9* > Br if context block not initialized yet 

#*MAPOK, LSW7(R1 ); Mapping info in context block is valid 



<SP)+, R5 
<SP)+, R4 
(SP)+, R3 
<SP>+, R2 
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1 
2 
3 
4 
5 
6 
7 

8 002276 

9 002300 

10 002302 

11 002304 



13 
14 
15 
16 
17 
18 
19 
20 
21 



23 

24 



002306 
002312 
002316 



002326 
002332 
002334 

25 002336 

26 

27 

28 

29 002340 

30 

31 

32 

33 002346 

34 002350 

35 002352 

36 002354 

37 002356 



010146 
010246 
010346 
010446 



012701 
012702 
012703 



. SBTTL LODMAP 



Load memory mapping from context block 



LODMAP is called to load the user-mode memory management 
PAR and PDR registers from the mapping information in the job's 
context block. The context block information was set up by the 
last call to the SETMAP routine. 



LODMAP 



MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 



Set up pointers to the registers 



0000000 
0000000 
OOOOOOG 
0000000 



000010 



MOV #UPARO, Rl 

MOV ttCUPARO, R2 

MOV #UPDRO, R3 

MOV #CUPDRO, R4 



j Point to hardtuare PAR register base 

.: Point to PAR data cells in context block 

; Point to hardware PDR register base 

iPoint to PDR data cells in context block 



Load the PAR and PDR reqisters 



012700 
012221 
012423 
077003 



113737 OOOOOOG OOOOOOG 



012604 
012603 
012602 
012601 
000207 



1$: 



MOV 
MOV 
MOV 
SOB 



#8. , RO 
<R2)+, (Rl) + 
<R4)+. <R3)+ 
RO, 1* 



; Load 8 PAR and PDR registers 

; Load a user-mode PAR register 

i Load a user-mode PDR register 

;Loop if more to load 



Say memory mapping is set up for the current job 

MOVE CORUSR, MAPUBR ; Say memory mapping set up for current job 



Finished 



MOV 
MOV 
MOV 

MOV 
RETURN 



(SP)+, R4 
(SP)+>R3 
< SP ) +, R2 
(SP)+, Rl 



i 

4 

i 



TSEXEC — TSX~Plus Executive Mo MACRO V05. 04 
MAPSYS — Map to the system code reciions 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

23 002360 

24 002360 

25 002362 
002370 
002376 

28 002402 

29 002406 

30 002414 
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SDTTL MAPSYS 



Map to the system code regions 



MAPSYS actually performs the mapping required to execute code in 
the mapped system region&. The mapped system code includes TSUSRj 
TSEMT, TSLOCK, and TSSPOL. The correct calling interface is 



CALL MAPSYS 
with R5 containing 



the <segment number>*6 



The output of the subroutine actually changes the KPAR5 contents to 
get to the correct physical memory locations. 

This routine must preserve the C-bit because it will be called 
from the OCALL (inter-overlay call) handler. 



Overlay table structure: 

loc 64 — > *OVTAR: 

. WORD <IDENTIFIER>, <KPAR5:>, <WORD COUNT> 
DUMMY SUBROUTINES FOR ALL OVERLAY SEGMENTS 



MAPSYS: 



26 
27 



011646 
013766 
052737 
010537 
063705 
016537 
000002 



OOOOOOG 
000340 
000032 ' 
OOOOOOG 
177772S 



000002 
OOOOOOG 



OOOOOOG 



MOV 
MOV 
BIS 
MOV 
ADD 
MOV 
RTI 



< SP ) , - < SP ) 

e#psw, 2<sp> 
#340, e#psw 
R5. SYSMAP 
OVRADD, R5 
O. PAR-6(R5) 



; reposition return address 
; save psw with current interrupt priority 
; disable interrupts 
; store the mapped region number 
iadd the pointer to the overlay table 
(i(#KPAR5; enter the physical memory location 
; return with previous psw and priority 



I 
I 
I 

4 

4 

i 

f 
i 
i 
i 

I 

i 
i 
i 
i 
t 



i 

i 
f 
i 
i 

i 
i 
i 



i 
i 
i 
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1 
2 
3 
4 
5 
6> 
7 

a 

9 
10 
11 
12 
13 
14 

15 002416 

16 002420 
17 

IS 
19 

20 002424 

21 002430 

22 002436 
002440 
002442 
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. SBTTL PKSTAT — Pack user status into context block 

PKSTAT is called to pack all of the status information about the 

current user into the user's context block. 

After calling PKSTAT the user is ready to be outswapped. 

All registers are preserved. 

When called, we must be using the system stack. 

Inputs: 
R3 = Pointer to top of user stack in job context area. 

Outputs: 
R3 = Updated user stack pointer <after pushing job status). 



23 
24 



25 
26 
27 

28 002446 

29 002454 

30 002456 

31 002462 

32 002464 

33 002470 
34 

35 

36 

37 002474 

38 

39 

40 

41 002500 

42 002504 

43 002506 

44 002514 
45 

46 002516 

47 002520 

48 002522 

49 002524 

50 002526 

51 002530 

52 002532 

53 002534 

54 002536 

55 002540 

56 002542 

57 002544 



010146 
113701 



013743 
052737 
106506 
011643 
012637 



032761 
001007 
106537 
012643 
106537 
012661 



0000000 



0000000 
0000000 



PKSTAT: MOV 
MOVE 



R 1 , - < SP ) 
C0RUSR,R1 



Save PSW and user mode SP. 



OOOOOOG 



0000000 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



MOV 

B.TS 

MFPD 

MOV 

MOV 



@#PSW, -(R3) 

#UPMODE, S#PSW 

SP 

(SP), -(R3) 

<SP)+, UMSPSV 



J Get job index number 



} Save PSW 

;Make sure previous-mode = user 

; Get user-mode SF^ 

; Push user SP 

; Save it in context block cell also 



013743 OOOOOOG 



005737 
001424 
032737 
001420 

010246 
170202 
010243 
170011 
174043 
174143 
174243 
174343 
172404 
174043 
172405 
174043 



OOOOOOG 
OOOOOOG OOOOOOG 



Save some cells in program space 

BIT #*RDSAV, LSWIKRDj Are we reading in SAV file now? 

OWE 1* ; Br if yes — Don't save info from memory 

MFPD e#ERRLOC ; Save error cells 

MOV (SP)+, -(R3) 

MFPD ©#JSWLOC J Job status word 

MOV (SP)+, LJSW<R1 ) 

Save the current kernel PAR 5 region mapping 

1*: MOV @#KPAR5, ~(R3) ; Save kernel par 5 mapping 

See if we need to save state of FPU 

TST UFPTRP ; Is user using the FPU? 

BEQ 2* ; Br if not 

BIT #CW«FPU, CONFIG i Does system have an FPU? 

BEO 2* ;Br if not 



Save contents of FPU accumulators 
MOV R2, - < SP ) 
R2 
R2, ~(R3) 



STFPS 

MOV 

SETD 

STD 

STD 

STD 

STD 

LDD 

STD 

LDD 

STD 



RO, -<R3) 
Rl, -<R3) 
R2, -(R3) 
R3, ~<R3) 
R4, RO 
RO, -<R3) 
R5, RO 
RO, -<R3) 



Hold floating point status in R2 

Save floating point status register 

Set to 64-bit mode 

ACO 

ACl 

AC2 

ACS 

AC4 — >ACO 

(AC4) 

AC 5 — >ACO 

<AC5) 
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58 002546 170102 

59 002550 105037 000013 

60 002554 012602 
61 

62 
63 

64 002556 012601 

65 002560 000207 



LDFPS 


R2 


CLRB 


FPUUSE 


MOV 


<SP)+. R2 



; Leave FPU status same as on entry 
j FPU is no longer in use 



F'inished saving status 

'^: MOV (SP)+, Rl 
RETURN 



TSEXEC 
UPSTAT 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002562 010446 
002564 010546 
002566 052737 OOOOOOG OOOOOOG 



002574 005737 OOOOOOG 
002600 001420 



00260J 



00264S 



032737 OOOOOOG OOOOOOG 



002610 001414 

002612 110137 000013 

002616 170011 

002620 172423 

002622 174005 

002624 172423 

002626 174004 

002630 172723 

002632 172623 

002634 172523 

002636 172423 

002640 170123 



012337 OOOOOOG 



002646 032761 OOOOOOG OOOOOOG 

002654 001007 

002656 016146 OOOOOOG 

002662 106637 OOOOOOG 

002666 012346 

002670 106637 OOOOOOG 



002674 012346 

002676 1 06606 

002700 005037 OOOOOOG 

002704 012300 

002706 042700 147777 



. SBTTL UPSTAT — Unpack user status from context block 

UPSIAT is called to unpack the status information stored in the 
user's context area and get the user ready to run. 
When called, Rl must contain the user index #. 
All registers are preserved except RO. 

Inputs; 
Rl =• Job index number. 
R3 = User context area stack pointer 

Outputs: 
R3 = User context area stack pointer after job status is popped. 



UPSTAT: MOV 
MOV 

BIS 



R4, -<SP) 
R5, -<SP) 
#UPMODE, @#PSW 



;Make sure previous-mode = 

See if FPU unit needs to be restored 

TST UFPTRP ; Is user using FPU? 

BEG 3* iBr if not 

BIT #CW*FPU, CONFIG j Does system have an FPU? 

BEQ 3* ;Br if not 

Restore the FPU registers and status 



user 



MOVB 

SETD 

LDD 

STD 

LDD 

STD 

LDD 

LDD 

LDD 
LDFPS 



R 1 . FPUUSE 

<R3)+, RO 
RO, R5 
(R3)+,R0 
RO, R4 
(R3)+, R3 
<R3)+, R2 
<R3)+, Rl 
<R3)+, RO 
(R3) + 



j Set flag saying FPU unit is in use by job 
i Set 64-bit mode 
} Get AC5 

; Get AC4 

; AC3 
; AC2 
i ACl 
i AGO 
i Load FPU status register 



; Restore the mapping for kernel PAR 5 

3$: MOV <R3)+, @#KPAR5 j Restore mapping for PAR 5 

i 

> Restore some cells in propram space 
> 

BIT #*RDSAV, LSWIKRI ); Are we reading in SAV file now? 

BNE 1* ; Br if yes — Don't alter memory image 

MOV LJSW<R1.^ -(SP) ;Job status word 

MTPD @#JSWLOC 

MOV <R3)+, -<SP) iError cells 

MTPD e#ERRLDC 

; Restore PSW mode and user-mode SP. 

i 

1«: MOV <R3)+, -<SP) ; User-mode SP 

MTPD SP 

CLR UMSPSV ; Say user SP has been loaded 

MOV <R3)+, RO ;Get saved PS 

BIC #147777, RO ; Clear all but previous-mode field 
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58 002712 042737 0000000 0000000 BIC #UPMODE, @#PSW ; Clear previous-mode field in PS 

59 002720 050037 0000000 BIS RO. @#PSW i Possibly set previous-mode field 

60 ; 

61 i 

62 J 

63 002724 01260^) 

64 002726 012604 

65 002730 000207 



BIC 


#UPMODE, @#PSW 


BIS 


RO, @#PSW 


Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


RETURN 





TSEXEC - 
DOC MP L - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
il 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-Plus Executive Mo MACRO V05. 04 
- Call job's completion routines 



Friday 18-Dec~97 07:56 Page 19 



002732 



002732 
002736 



002740 
002746 



002750 
002756 
002760 



002762 
002764 
002766 
002770 
002772 
002774 
002776 



003002 
003004 
003010 
003014 
003020 
003024 
003026 



016100 
001410 



126037 
101404 



032761 
001401 
000207 



010046 
010146 
010246 
010346 
010446 
010546 
013746 



010603 
012706 
113705 
004737 
110537 
010306 
005037 



. SBTTL DOCMPL — Call job's completion routines 

DOCMPL is called from the job scheduler just before returning control 
to a job. On entry we are running on the user context-area stack. 
If there are pending completion routine requests for this job and uie 
are not already executing in a completion routinei we call the completion 
r o u t i VI e s . 

Inputs: 
Rl = Job index number 

DOCMPL: 

See if any completion routine is pending for this job. 



OOOOOOG 



MOV LCMPL(R1),R0 
BEQ 12* 



ils any completion request pending for job? 
; Br if not 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



001000 
000013' 
002416' 
000013' 

OOOOOOG 



There is a pending completion routine for the job. 

Don't enter a completion routine if one of the same or higher class 

priority is already in execution for the job. 

However^ allouj a higher class completion routine to interrupt a 

lower class routine. 

CMPB CQ$CP<RO), CURCP ;Is this request of higher priority? 
BLOS 12* ;Br if not 

We want to enter this completion routine. 

Don't enter any synch or completion routines if no-abort flag is set. 

BIT #*NOABT, LSW9<R1); Was the no-abort flag set? 
BEO 13* i Br if not 

12*: RETURN ; Don't do any completion routine processing 

There is a pending completion routine request and we are not currently 
executin a completion routine so we should call the pending routines. 

Save status of job on context-block stack. 

13*: MOV RO, -<SP) 

MOV R 1 , - < SP ) 

MOV R2, ~<SP) 

MOV R3, -<SP> 

MOV R4, -(SP) 

MOV R5, -<SP) 

MOV @#KPAR5, -<SP) j Save kernel PAR 5 mapping 

Switch to system stack so PKSTAT can push job status on context-block 

stac k. 

i Save current job-context-block stack pointer 

j Switch to system stack 

> Remember if job is using FPU 

j Save job status on context-block stack 

iTell system if job is using FPU 

; Switch back to context stack 

;Say user SP is active- used for real-time int 



MOV 


SP,R3 


MOV 


#SS, SP 


MDVB 


FPUUSE, R5 


CALL 


PKSTAT 


MOVB 


R5, FPUUSE 


MOV 


R3, SP 


CLR 


UMSPSV 



TSEXEC — TSX~Plus Executive Mo MACRO V05. 04 
DOCMPL — Call job's completion routines 



Friday 18~Dec-a7 07: 56 Page 19-1 



58 
59 
60 
61 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



00303^ 



003036 
003044 
003050 
003052 
003056 
003060 
003066 
003070 
003076 
003100 
003104 
003106 
003110 



003112 
003120 



003126 
003132 
003140 
003144 
003150 
003152 
003156 



003162 
003164 
003170 
003174 
003200 
003204 
003212 
003214 
003220 



012700 
060100 
016005 
00 1 540 
126537 
101534 
132765 
001005 
005761 
001402 
010500 
000760 



113746 
116537 
116500 
120061 
001004 
110061 
105237 



010103 
016504 
016546 
016546 
116502 
016537 
010501 
004737 
012601 
012600 



116146 OOOOOOG 



Our status has been savtul. 

Save current job execution priority on stack so me can restore it after 

calling all completion routines. 

MOVB LPRKRl), -<&P) ; Save job execution priority 

Process next completion request. 



1^: 



ooooooc 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



17*: 



OOOOOOG 
OOOOOOG 



DISABL 

MOV 

ADD 

MOV 

BEQ 

CMPB 

BLOS 

BITB 

BNE 

TST 

BEQ 

MOV 

BR 



; *# Disable interrupts *« 
#LCMPL-CQ*LNK, ROiGet fake pointer to compl Q head 
R1>R0 jPoint to list head for our job 

CQ*LNK<RO), R5 i Get address of next compl Q element 
2* i Br if no more elements left to process 

CQ$CP(R5). CURCP ; Is this request class higher than current 
2$ ; Br if not — No more requests to process now 

#QF*SCR, CQ«FLG<R5); Is this a system or user compl routine? 



16$ 

LIOHLD(Rl) 

16* 

R5, RO 

17* 



Br if system compl routine 

Should we hold user compl routines? 

Br if not 

Link to next element 

Skip over user compl requests in list 



Unlink completion queue request from list. 



016560 OOOOOOG OOOOOOG 16*: 



MOV 
ENABL 



CQ*LWK(R5)>CQ*LNK<R0); Remove compl request from list 

; #* Enable interrupts *•* 



Set job execution priority to that specified in completion queue element 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
000004 ' 



MOVE CURCP,-<SP) 

MOVE CQ*CP<R5),CURCP 

MOVB CQ*PRI(R5),R0 

CMPB RO. LPRKRl) 

BNE 7* 

MOVB RO, LPRKRl) 

INCB DOSCHD 



Save current completion rtn class priority 

Remember class priority of compl rtn 

Get execution priority for compl queue 

Do u»e need to change job priority? 

Br if not 

Set new execution priority 

Say a job scheduler cycle is needed 



Get some information out of the completion queue element and then 
free the queue element. 



7*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

CALL 

MOV 

MOV 



Save job index number in R3 
Address of completion routine to be 
Save info on stack for now 



Rl, R3 

CQ*RTN<R5), R4 

CQ*R0<R5), -<SP) 

CQ*R1<R5), -"<SP) 

CQ*FLG(R5),R2 i Control flags 

CQ*PA5(R5), ©#KPAR5 ; Set up mapping for PAR 5 

R5/R1 ; Get address of queue element 

QFREE ;Free the queue element 

(SP)+, Rl > Recover values to pass in RO 

(SP)+, RO 



called 



to Rl 



Rl 



Determine if completion routine is a system routine that should 
be called in kernel mode or a user completion routine to be 
called in user mode. 



003224 032702 OOOOOOG 



BIT 



#QF*SCR, m 



Is this a system or user completion routine? 



DDCMPL ■ 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
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003232 
003236 
003240 
003242 
003244 



003246 
003254 



003256 
003264 
003270 
003274 
003300 
003302 
003304 
003310 
003312 
003314 



003316 

003322 
003330 
003332 
003336 
003340 
003344 



003346 
003352 
003356 



003360 
003366 
003370 
003374 
003376 



i 



003230 001406 



032702 
001401 
005011 
004714 
000440 



032763 
001034 



052737 
013702 
012742 
010237 
106506 
012602 
012746 
106642 
010246 
106606 



012746 
032737 
001402 
052716 
010446 
012705 
000002 



113701 
112637 
000627 



112603 
105737 
001025 
116103 



BEQ 6* ! Bt if user completion routine 

We are calling a system completion routine in kernel mode 



OOOOOOC 



15*: 



BIT 

BEQ 

CLR 

CALL 

BR 



#QF*SYN!OF*IDT, R2 ils this a .SYNCH or .TIMID routine? 



15* 
(Rl) 
(R4) 
5* 



Br if not 

Clear cell in original call argument block 

Call system completion routine 

Finished with completion routine 



0000000 0000000 6*: 



0000000 0000000 
0000000 
003346 ' 
0000000 



0000000 



BIS 


#UPMODE. ©#PSW 


MOV 


EMTCAD, R2 


MOV 


#5*, -(R2) 


MOV 


R2, EMTCAD 


MFPD 


SP 


MOV 


<SP)+, R2 


MOV 


#CPLEMT, -<SP) 


MTPD 


-(R2) 


MOV 


R2, -<SP) 


MTPD 


SP 



OOOOOOC 
0000000 0000000 

000020 

000024 



OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



We are calling a user completion routine. 

See if flag is set indicating that we are not to call any user 

completion routines. This is set during job exit/abort cleanup. 

BIT #*NOUCR* LSW9<R3)i Should we ignore user-mode completion rtns? 
BNE 5* i Br if yes 

Use special EMT to regain control at end of completion routine. 

;Make sure previous mode = user 

i Get pointer to top of return addr stack 

; Push our return address 

; Save updated stack pointer 

i Get user's stack pointer 

; Store address of exit EMT on user's stack 

; Restore updated user's stack pointer 

Now push fake PS & PC on stack so RTI will enter compl routine 
in u&er-mode. 

MOV #UMODE!UPMODE» -<SP); User-mode PS 

BIT #D*DM0Nji D. FLAG ; Is debugger doing data monitoring? 

BEQ 14* i Br if not 

BIS #20, <SP) ;Set trap flag in PSW 

14*: MOV R4, -(SP) ; Address of completion routine 

MOV #24, R5 iMake R5 point to word with for FORTRAN subs 

RTI ; Enter completion routine in user mode 

Return here from the completion routine <when user does EMT instruction). 

See if there are more completion routines to call. 

5*: MDVB CDRUSR,R1 ; Get back job index number 

Restore compl routine class priority 
Check for more pending completion requests 

There are no more pending completion requests. 
Reset job priority to base priority for job. 

** Enable interrupts -Js-* 

Get saved job execution priority 

Are we still in a completion routine? 

Br if yes 

Get base priority for job 



MDVB 


CDRUSR,R1 


MDVB 


(SP)+, CURCP 


BR 


1* 



MDVB 


<SP)+, R3 


TSTB 


CURCP 


BNE 


B* 


MOVE 


LBSPRI<R1),R3 



TSEXEC • 
DOCMPL • 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
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003402 
003410 
003412 
003416 
003420 
003424 
003426 
003432 
003434 
003440 
003442 
003446 
003450 
003454 
003456 
003462 
003466 
003474 
003476 
003502 
003504 



003510 
003512 
003516 
003522 



003524 
003530 
003532 
003534 
003536 
003540 
003542 
003544 



032761 
001417 
120337 
103014 
120337 
101411 
1 1 3700 
160003 
120337 
003003 
113703 
005203 
120361 
001404 
110361 
105237 
026127 
101005 
120337 
103002 
004737 



010603 
012706 
004737 
010306 



012637 
012605 
012604 
012603 
012602 
012601 
012600 
000207 



OOOOOOG OOOOOOG 

0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
000004 ' 
OOOOOOG OOOOOOG 

OOOOOOG 

005206 " 



8*: 



10*: 



BIT 


#*VNOTT» LSW<R1) 


BEQ 


8* 


CMPB 


R3, VPRIH.I 


BHIS 


8* 


CMPB 


R3, VPRILO 


BLDS 


8* 


MOVB 


VPRIVR, RO 


SUB 


RO, R3 


CMPB 


R3, VPRILO 


BGT 


8* 


MOVE 


VPRILO, R3 


INC 


R3 


CMPB 


R3,LPRI<Ri) 


BEQ 


10* 


MOVE 


R3>LPRI<R1) 


INCB 


DOSCHD 


CMP 


LSTATE(R1),#S** 


BHI 


3* 


CMPB 


R3, VPRIHI 


BHIS 


3* 


CALL 


QHIPRI 



Unpack job status. 



3*: 



001000 
002562 ' 



OOOOOOG 



MOV 


SP, R3 


MOV 


#SS, SP 


CALL 


UP STAT 


MOV 


R3, SP 


F i n i s bed 




MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP>+,R1 


MOV 


(SP)+, RO 


RETURN 





Is this a disconnected virtual job? 

Br if not 

Does job have a fixed high priority? 

Br if yes 

Does job have a fixed loui priority? 

Br if yes 

Get prio reduction for virtual jobs 

Reduce priority for detached virtual jobs 

But don't go into special loui prio range 

Br if ok 

Force above fixed low priority 

; Are we changing the job's priority? 
; Br if not 

; Set new priority for job 
j Say a job scheduler cycle is needed 
!T > Is job in a real-time state? 
; Br if not 

; Does job have a real-time priority? 
; Br if yes 
; Requeue job in normal high-prio state 



; Save user context-block stack pointer 

i Switch to system stack 

; Unpack job status 

iSwitch back to context-block stack 



i Restore mapping for kernel PAR 5 



i 

f 
I 
c 
I 
I 
I 
< 

€ 
I 

i 
i 
< 
i 

i 

i 
i 
i 
i 



TSEXEC 
SUTOP 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003546 
003550 
003552 
003554 
003556 
003562 
003570 



003574 
003600 
003604 



003610 
003614 
003616 
003622 
003624 
003630 
003632 
003634 
003636 
003642 



003646 
003652 
003654 



003656 
003662 
003666 
003670 
003674 
003700 
003704 
003712 
003714 



010046 
010146 
010446 
010546 
013746 
013737 
113701 



010037 
013705 
010065 



020027 
101403 
012700 
000407 
062700 
000241 
006000 
000300 
042700 
063700 



020061 
001501 
101026 



016104 
016105 
060504 
063704 
010061 
010061 
066161 
160005 
060537 
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. SBTTL SUTOP — Set top of memory for a job 



SUTOP is called to set the top of memory for the current job. 

If memory expansion is being requested and the required memory space 

is not available, the job is suspended and outswapped until memory 

becomes available. 

If a memory contraction is being done, the memory area being freed 

is returned to an unused state. 



Inputs: 
RO = Address above desired top of program. 



SUTOP : 



0000000 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
000170' 
OOOOOOG 



177000 
000200 
000777 



MOV 


RO, -<SP) 


MOV 


Rl, -<SP) 


MOV 


R4, -<SP) 


MOV 


R5, -<SP) 


MOV 


@#KPAR5, -<SP) 


MOV 


MAPPAR, e#KPAR 


MOVE 


C0RUSR,R1 



i Save system PAR 5 mapping 
MAPPAR, e#KPAR5 .: Map PAR 5 to memory allocation table 

i Get job index # 

Set highest legal address for job and set base of USR 



MOV BO, UHIMEM 
MOV CXTRMN, R5 
MOV RO, R*UBAS<R5) 



SET TOP OF MEMORY FOR JOB 

GET ADDRESS OF JOB'S SIMULATED MON VEC TABLE 

SAY BASE OF USR = TOP OF JOB 



Convert top-of-memory address to 512-byte page number. 



7*: 



177400 
000164' 



OOOOOOG 



8*: 



CMP 


RO, #177000 


BLOS 


7* 


MOV 


#128. ,R0 


BR 


8* 


ADD 


#511. , RO 


CLC 




ROR 


RO 


SWAB 


RO 


BIG 


#--C377, RO 


ADD 


CXTPAG, RO 



DOES JOB NEED 64KB? 

BR IF NOT 

128 PAGES = 64KB 

; BOUND UP TO PAGE BOUNDARY 
; CONVERT # BYTES TO # WORDS 

CONVERT TO # PAGES 

MASK OUT ALL BUT # PAGES 

ADD # PAGES NEEDED FOR CONTEXT BLOCK 



Compare new memory request with current memory allocation for this job. 



10*: CMP RO, LNBLKS(Rl) 
BEG 3* 
BHI 1* 



COMPARE NEW REQUEST WITH CURRENT ALLOCATION 

BR IF NO CHANGE IN SIZE 

BR IF EXPANDING MEMORY SIZE 



We are decreasing the size of the job. 

Free the memory pages above the new top of the job. 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



MOV 
MOV 
ADD 
ADD 
MOV 
MOV 
ADD 
SUB 
ADD 



GET BASE PAGE # ASSIGNED TO THE JOB 
GET # PAGES ASSIGNED TO JOB NOW 
GET # OF PAGE ABOVE TOP OF JOB AREA 
POINT TO ENTRY IN MEMMAP TABLE 
SET NEW # PAGES ASSIGNED TO JOB 
SET # BLOCKS NEEDED BY INSWAP 

LNSBLK(R1),LMEMIN<R1) ; ADD MEMORY SPACE NEEDED FOR PLAS REGNS 

RO, R5 i GET # PAGES BEING FREED 

R5, FREPGS iKEEP TRACK OF # FREE PAGES 



LBASE<R1), R4 
LN8LKS(R1), R5 
R5, R4 
BASMAP, R4 
RO, LNBLKS<R1) 
RO,LMEMIN(R.I ) 



f 
I 
f 
i 
i 

i 

€ 
I 

i 

4 

< 

€ 
€ 

i 
i 
i 
i 
i 
i 



TSEXEC - 
SUTOP - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003720 
003722 
003724 
003730 



003732 
003736 
003742 
003744 
003750 
003752 
003754 
003756 
003760 



003762 
003764 
003770 
003774 
004000 
004006 
004014 
004020 
004024 
004026 
004030 



004032 
004034 
004040 
004042 
004046 
004052 
004054 



004062 
004066 
004070 
004072 
004074 



105044 
077502 
105237 
000452 



016104 
016105 
060504 
063704 
160500 
010046 
105724 
001025 
077003 



012600 
016104 
066104 
060061 
016161 
066161 
063704 
16C037 
110124 
077002 
000412 



012600 
066100 
010046 
066100 
004737 
012600 
000674 



2*: 



000004 ' 



CLRB 


-<R4) 


SOB 


R5. 2* 


INCB 


DOSCHD 


BR 


3* 



FREE A PAGE 

LOOP TO FREE MORE 

REQUEST A JOB SCHEDULER CYCLE 



We BTQ increasing the size of the job. 
See if desired memory is available now. 



OOOOOOG 
0000000 

OOOOOOG 



1*: MOV LBASE{R1),R4 

MOV LNBLKS<R1). R5 

ADD R5, R4 

ADD BASMAP, R4 

SUB R5, RO 

MOV RO, -<SP) 

5$; TSTB (;R4) + 

BWE 4* 

SOB RO, 5* 



GET BASE PAGE # ASSIGNED TO THIS JOB 

GET # PAGES CURRENTLY ASSIGNED TO THIS JOB 

GET # OF PAGE ABOVE TOP OF JOB AREA 

POINT INTO MEMMAP TABLE 

GET # PAGES TO BE ADDED 

IS THIS PAGE AVAILABLE? 

BR IF NOT 

CHECK ALL PAGES WE NEED 



The desired memory space is available. Claim it for our job. 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



6$: 



MOV <SP>+, RO 

MOV LBASE<R1),R4 

ADD LNBLKS(R1),R4 

ADD RO, LNBLKS<R1) 

MOV LNBLKS<R1), LMEM 

ADD LNSBLK ( R 1 ) , LMEM 

ADD BASMAP,R4 

SUB RO, FREPGS 

MOVE Ri, (R4) + 

SOB RO, 6* 

BR 3* 



GET # PAGES BEING ADDED 

GET BASE PAGE # ASSIGNED TO THIS JOB 

GET # OF PAGE ABOVE CURRENT TOP OF JOB 

INCREASE # PAGES ASSIGNED TO THIS JOB 
IN<R1);SET UP LMEM IN FOR SWAPPER 
IN(R1)jADD SPACE NEEDED FOR PLAS REGIONS 

POINT INTO MEMMAP TABLE 

KEEP TRACK OF # FREE PAGES 

CLAIM PAGES FOR OUR JOB 



OOOOOOG 

OOOOOOG 
004100' 



004056 004737 001534' 



012637 
012605 
012604 
012601 
012600 



OOOOOOG 



The memory space we need is not now available. 

Force the job to be suspended and outswapped. 

The subsequent inswap will do the memory expansion for us. 

4$; MOV <SP)+, RO ; GET # PAGES BEING ADDED 

GET NEW TOTAL # PAGES FOR JOB ROOT 
SAVE SIZE OF JOB ROOT 
ADD SPACE NEEDED FOR PLAS REGIONS 
DO JOB SWAP TO EXPAND MEMORY SPACE 
GET BACK # PAGES NEEDED BY JOB ROOT 
WE SHOULD NOW HAVE ALL NEEDED 

Memory allocation has been done. 

Load the memory management registers for the job. 

; LOAD MEMORY MANAGEMENT REGISTERS FOR THE JOB 



j Restore system PAR 5 mapping 



MOV 


<SP)+, RO 


ADD 


LNBLKS(R1),R0 


MOV 


RO, "<SP) 


ADD 


LNSBLK<R1).R0 


CALL 


MEMXPN 


MOV 


(SP)+, RO 


BR 


10* 



3$: CALL 


SETMAP 


; F i n i B h e d 




MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+,R5 


MOV 


(SP)+, R4 


MOV 


( SP > +, R 1 


MOV 


(SP)+, RO 
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115 004076 000207 



RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 004 

14 004 

15 004 

16 004 

17 004 

18 004 

19 004 

20 004 
21 



t£.u3 

24 004 



100 
104 
112 
114 
122 
126 
132 
136 



14^ 



010061 
032761 
001005 
052761 
005237 
012700 
004737 
004737 



000207 



. SBTTL MEMXPN — Do job swap to expand memory size 

MEMXPN is called when we want to expand the size of a job 

but are unable to do so because we don't have free memory space 

above the top of the job. 

MEMXPN outswaps the job and then swaps the job back into the 

larger memory region. 

I n p M t B : 
Rl ~ Job index number. 
RO = Total number of 512-byte pages wanted for job after expansion. 



0000000 
0000000 

OOOOOOG 
000070 ' 
OOOOOOG 
004736 ' 



OOOOOOG 
OOOOOOG 



MEMXPN: MOV 
BIT 
BNE 
BIS 
INC 

1$: MOV 
CALL 
CALL 

Finished 

RETURN 



RO, LMEMIN<Ri> 

#*NDMEM, LSW(R1> 

1* 

#*NDMEM, LSW<R1.> 

MEMSWP 

#S*WFM. RO 

QNSPNX 

CHKABT 



Set job size needed 

Is job already waiting for memory expansion? 

Br if yes 

Set memory-needed flag for the job 

Tell swapper than memory-swap is needed 

Put job in waiting~f or-memory state 

Suspend and do the swap 

Was job aborted while suspended? 



TSEXEC - 


— TSX-Plus Exec. 


utive Mo 


CXBMOV - 


— Move 


job CO 1 ) t 


ext data 


1 
S 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


004144 


010346 




14 


004146 


010446 




15 


004150 


013746 


0000000 


16 








17 








18 








19 


004154 


010537 


OOOOOOG 


20 








21 








22 








23 


004160 


062703 


0000000 


24 


004164 


013704 


000172' 


25 


004170 


006200 




26 








27 








28 








29 


004172 


006200 




30 


004174 


001403 




31 


004176 


012324 




32 


004200 


012324 




33 


004202 


077003 




34 


004204 


103001 




35 


004206 


011314 




36 








37 








38 








39 


004210 


012637 


OOOOOOG 


40 


004214 


012604 




41 


004216 


012603 




42 


004220 


000207 





MACRO V05. 04 
into buffer 
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. SBTTL CXBMOV — Move job context data into buffer 

ThiB routine is called to move data from some arma of physical memory 
into the job context block access buffer <CXTBUF). 

This routine is placed in the root because it uses PAR 5 to access 
the physical memory area. 

Inputs: 
R5 =• Base 64-byte block number of start of data in physical memory. 
R3 = Offset within data area of item being accessed. 
RO = Number of bytes of data to move (512 maximum). 



CXBMOV: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -<SP) 
@#KPAR5, -(3P) 



iSave PAR 5 mapping 
Map PAR 5 to area being accessed 

MOV R5, @#KPAR5 i Map par 5 to context block 
Set up registers for the move 



1*: 



9*: 



ADD 
MOV 
ASR 

Move the data 

ASR 
BEQ 
MOV 
MOV 
SOB 
BCC 
MOV 

F" i n i E- h e d 

MOV 
MOV 
MOV 
RETURN 



#VPAR5. R3 
CXTBUF, R4 
RO 



RO 

2* 

(R3)+, <R4) + 

(R3)+, <R4) + 

RO, 1* 

9* 

(R3), <R4) 



<SP)+, @#KPAR5 
<SP)+, R4 
(SP)+, R3 



;Get mapped address of start of data 
; Point to buffer where data is to go 
i Get # words to move 



; Get number of double-words to move 

; Br if less than 2 words to move 

; Move a word 

i Move second word of pair 

; Loop till all moved 

J Br if don't need to move odd word at end 

i Move last word 



i Restore par 5 mapping 



€ 



TSEXEC - 


— TSX~Plu5 Executive Mo 


ENQHD - 


— Put u 


s e r at h 


t:- a d of q 


1 
2 








3 








4 








5 








6 








7 








8 








9 


004222 


010246 




10 


004224 


010346 




H 

12 
13 


004226 


010446 










14 








15 








16 








17 


004230 


116104 


OOOOOOG 


18 


004234 


020027 


OOOOOOG 


19 


004240 


101013 




20 


004242 


120437 


0000000 


21 


004246 


103403 




22 


004250 


012700 


OOOOOOG 


23 


004254 


000405 




24 


004256 


120437 


OOOOOOG 


25 


004262 


101002 




26 


004264 


012700 


OOOOOOG 


27 








28 








29 








30 


004270 


004737 


004534' 


31 








32 








33 








34 


004274 


113702 


000000 ' 


35 


004300 


001432 




36 


004302 


020062 


OOOOOOG 


37 


004306 


101004 




38 


004310 


103412 




39 


004312 


120462 


OOOOOOG 


40 


004316 


103007 




41 


004320 


010203 




42 


004322 


116302 


OOOOOOG 


43 


004326 


001365 




44 








45 








46 








47 


004330 


110137 


000001 ' 


48 


004334 


000404 




49 








50 








51 








52 


004336 


1 1 6203 


00000 IG 


53 


004342 


110162 


00000 IG 


54 


004346 


110261 


OOOOOOG 


55 


004352 


110361 


00000 IG 


56 


004356 


001405 




57 


004360 


110163 


OOOOOOG 



MACRO V05. 04 
q u e u e 
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. SBTTL ENQHD — Put user at head of queue 

ENQHD is called to place a user in the run queue at the front 

of the list of users of equal or lower priority. 

When called. Rl must contain the user index number and 

RO must contain the execution state <S* ). 

All registers are preserved. 



ENQHD: 



MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, _(SP) 



MOVE 


LPRKRl), R4 


CMP 


RO, #S**RUN 


BHI 


3* 


CMPB 


R4, VPRIHl 


BLO 


4* 


MOV 


#S*RT, RO 


BR 


3* 


CMPB 


R4, VPRILO 


BHI 


3* 


MOV 


#S*LOW, RO 



If job is being placed in an executable state and the priority 

of the job is one of the fixed priorities (very low or very high)< 

then force job to be placed in the S*LOW or SSRT queue. 

i Get current priority for job 

> Is job being placed in an executable state? 

j Br if not 

J Does job have a real-time priority? 

; Br if not 

J Force real-time jobs into S*RT state 

4*: CMPB R4, VPRILO ils this a low-priority job? 

; Br if not 
J Force into low-priority queue 

Remove user from queue he is in currently. 

3*: CALL DEQ ; REMOVE FROM QUEUE *« DISABLE ** 

Search down queue looking for right place to insert user. 

POINT TO FIRST USER IN QUEUE 
BR IF QUEUE IS EMPTY 

COMPARE EXECUTION STATE PR 10 WITH NEXT JOB 
BR IF OUR EXECUTION STATE IS LOWER PRIO 
BR IF OUR EXECUTION STATE IS HIGHER PRIO 
EQUAL EXECUTION STATES, COMPARE PRIORITIES 
BR IF PRIO IS EQUAL TO OR HIGHER THAN NEXT 
CHAIN ON TO NEXT USER IN LIST 

BR IF MORE USERS IN QUEUE 



1*: 



>*: 



MOVB 


RUNQHD, R2 


BEQ 


ADQl 


CMP 


RO, LSTATE(R2) 


BHI 


2* 


BLO 


ADQMID 


CMPB 


R4, LPRI(R2) 


BHIS 


ADQMID 


MOV 


R2, R3 


MOVB 


LQLINK<R3),R2 


BNE 


1* 



Add user to tail of queue 



ADQTL: 



MOVB 
BR 



Rl, RUNQTL 
ADQT 



SAY WE ARE LAST USER IN LIST 



Link in front of user whose index # is in R2 



ADQMID: MOVB 
MOVB 

ADQT: MOVB 
MOVB 
BEQ 
MOVB 



LQLINK+1(R2), R3 

R1,LQLINK+1<R2) 

R2, LQLINK<R1) 

R3, LQLINK+KRl) 

ADQHD 

Rl, LQLINK<R3) 



GET INDEX OF EARLIER USER 

SAY WE ARE PREDECESSOR TO R2 USER 

SAY R2 USER FOLLOWS US 

SAY R3 USER IS OUR PREDECESSOR 

BR IF WE ARE AT HEAD OF LIST 

SAY WE FOLLOW R3 USER 



< 
I 
f 
I 
I 
< 
f 

i 
i 
i 
i 
i 
€ 
4 
( 

i 
i 
i 
i 



TSEXEC - 


— TSX-P 


1 U i5 E X (? t. 


utive Mo 


ENQHD - 


— Put u 


s e r at h 


e a d of q 


58 


004364 


000404 




59 








60 








6.1 








62 


004366 


110137 


000001 ' 


63 


004372 


110137 


000000 ' 


64 


004376 


010061 


0000000 


65 








66 








67 








68 


004402 


105237 


000004 ' 


69 


004406 






70 


004414 


012604 




71 


004416 


012603 




72 


004420 


012602 




73 


004422 


000207 





queup 
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BR ADQXIT 
Set us as only entry in queue 



ADQl: MOVE 
ADQHD: MOVE 
ADQXIT: MOV 



R1,RUNQTL 
R 1 , RUNQHD 
RO, LSTATE<R1) 



iMAKE QUEUE TAIL POINT TO US 
iMAKE QUEUE HEAD POINT TO US 
; SET OUR EXECUTION STATE 



Finished. Request a job scheduler cycle. 



INCB 


DOSCHD 


ENABL 




MOV 


(SP)+, R4 


MOV 


<SP)+>R3 


MOV 


(SP)+, R2 


RETURN 





; REQUEST A JOB SCHEDULER CYCLE 
; «« ENABLE «* 



I 

€ 
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I 
i 



1 
2. 

r) 

4 
5 
6 
7 
S 
9 

10 004424 

11 004426 

12 004430 
13 

14 
15 
16 
17 

18 004432 

19 004436 

20 004442 
004444 
004450 
004452 
004456 
004460 
004464 
004466 



21 

22 



23 
24 
25 
26 
27 



29 

30 

31 004472 

32 

33 

34 

35 004476 

36 004502 

37 004504 

38 004510 

39 004512 

40 004514 

41 004520 

42 004522 

43 004524 

44 004530 

45 004532 



010246 
010346 
010446 



116104 
020027 
101013 
120437 
103403 
012700 
000405 
120437 
101002 
012700 



1 1 3702 
001731 
020062 
101004 
103711 
1 20462 
101 306 
010203 
1 1 6302 
001365 
000676 



OOOOOOG 
0000000 

000000(3 

OOOOOOG 

0000000 

OOOOOOG 



004737 004534' 



000000 ' 
0000000 

OOOOOOG 

OOOOOOG 



. SBTTL ENQTL — Add user to tail of execution queue 

ENOTL is called when it is desired to add the user whose 

index number is in Rl to the end of the list of users with 

the execution state whose code is in RO. If there are no other 

users with this state in the queue, the user is linked in 

in front of any lower priority users. 

All registers are preserved. 



ENQTL: 



MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP> 



If job is being placed in an executable state and the priority 

of the job is one of the fixed priorities <very low or very high)* 

then force job to be placed in the S*LOW or S*RT queue. 

Get current priority for job 

Is job being placed in an executable state? 

Br if not 

Does job have a real-time priority? 

Br if not 

Force real-time jobs into S*RT state 

4*: CMPB R4,VPRIL0 ;Is this a low-priority job? 

j Br if not 
J Force into low-priority queue 



MOVB 


LPRI<R1),R4 


CMP 


R0> #S$*RUN 


BHI 


3* 


CMPB 


R4, VPRIHI 


BLO 


4* 


MOV 


#S*RT, RO 


BR 


3* 


CMPB 


R4, VPRILO 


BHI 


3* 


MOV 


#S*LOW, RO 



Remove user from queue. 
3*: CALL DEQ 



; REMOVE FROM QUEUE *« DISABLE «•* 



Search for right place to insert user. 



1*: 



2*: 



MOVB 


RUNQHD, R2 


BEQ 


ADQl 


CMP 


RO, LSTATE<R2) 


BHI 


2* 


BLO 


ADQMID 


CMPB 


R4, LPRI(R2) 


BHI 


ADQMID 


MOV 


R2, R3 


MOVB 


LQLINK<R3),R2 


BNE 


1* 


BR 


ADQTL 



POINT TO 1ST USER IN QUEUE 

BR IF QUEUE IS EMPTY 

COMPARE EXECUTION STATES 

BR IF OUR EXECUTION STATE PRIO IS LOWER 

BR IF OUR EXECUTION STATE PRIO IS HIGHER 

EQUAL EXECUTION STATES, COMPARE PRIORITIES 

BR IF OUR PRIORITY IS HIGHER 

CHAIN FORWARD TO NEXT USER IN LIST 

; BR IF MORE USERS IN LIST 
iADD US TO TAIL OF LIST 



TSEXEC — TSX-Plus Executive Ho MACRO V05. 04 
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3 








4 








5 








6 








7 








8 








9 








10 


004534 


010246 




11 


004536 


010346 




12 


004540 






13 


004546 


005761 


0000000 


14 


004552 


001010 




15 


004554 


120137 


000000 ' 


16 


004560 


001030 




17 








18 


004562 


105037 


000000 ' 


19 


004566 


105037 


000001 ' 


20 

21 
22 


004572 


000423 




004574 


116103 


OOOOOIG 


23 


004600 


116102 


0000000 


24 


004604 


001003 




25 


004606 


1 1 0337 


000001 ' 


26 


004612 


000402 




27 


004614 


1 1 0362 


0000010 


28 


004620 


005703 




29 


004622 


001003 




30 


004624 


1 1 0237 


000000 ' 


31 


004630 


000402 




32 


004632 


1 1 0263 


0000000 


33 








34 








35 


004636 


005061 


0000000 


36 


004642 


005061 


OOOOOOG 


37 


004646 


012603 




30 


004650 


012602 




39 


004652 


000207 





SBTTL DEQ 



Remove user from run queue 



DEO is called to remove from the run queue the user whose 

index number is in Ri. 

On return* the user will be left unlinked from the run queue 

and his state code (LSTATE) will be zeroed. 

** The interrupts btb left disabled on return *» 

All registers are preserved. 



; *# DISABLE ** 

; IS USER UNLINKED NOW? 

i BR IF NOT 

i IS USER ONLY ENTRY IN QUEUE? 

; BR IF NOT — MUST NOT BE IN QUEUE AT ALL 



DE< 


3: 


MOV 


R2, -(SP) 






MOV 


R3i -<SP) 






DISABL 








TST 


LQLINK<R1) 






BNE 


1* 






CMPB 


R1,RUNQHD 






BNE 


2« 


i 


User 


is only 


entry in queue 






CLRB 


RUNQHD 






CLRB 


RUNQTL 






BR 


2« 


f 


Unlink from 


queue 


1*: 




MOVE 


LQLINK+1<R1>,R3 






MOVE 


LQLINK(R1),R2 






BNE 


4* 






MOVB 


R3, RUNQTL 






BR 


5* 


4$: 




MOVB 


R3, LQLINK+KR2) 


5$: 




TST 


R3 






BNE 


6* 






MOVB 


R2, RUNQHD 






BR 


3* 


6*: 




MOVB 


R2, LQLINK<R3) 


J 


Fini 


shed unl 


inking. 


i 


Say 


user is 


not in any queue 


3*: 




CLR 


LQLINK<R1) 


2*: 




CLR 


LSTATE<R1) 






MOV 


(SP)+, R3 






MOV 


(SP)+, R2 






RETURN 





} REMOVE FROM QUEUE 



} GET # OF USER IN FRONT OF US IN QUEUE 
; GET # OF USER WHO FOLLOWS US IN QUEUE 
; BR IF NOT AT TAIL OF QUEUE 
} MAKE TAIL POINT TO OUR PREDECESSOR 

; MAKE OUR SUCCESSOR POINT BACK OVER US 

J ARE WE AT HEAD OF QUEUE? 

; BR IF NOT AT HEAD OF QUEUE 

iMAKE QUEUE HEAD POINT TO OUR SUCESSOR 

iMAKE OUR PREDECESSOR POINT TO OUR SUCESSOR 



i CLEAR BOTH OUR FORWARD & BACKWARD LINKS 
;SAY WE HAVE NO EXECUTION STATE 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


004654 






16 


004662 


113701 


000000 ' 


17 


004666 


001406 




IS 


004670 


020061 


OOOOOOG 


19 


004674 


001410 




20 


004676 


116101 


ooooooe 


21 


004702 


00 1 372 




22 








23 


004704 






24 


004712 


000261 




25 


004714 


000207 




26 








27 








28 


004716 


000241 




29 


004720 


000207 





. SBTTL QSRCH — Look for Ist user with some execution state 

QSRCH is called to locate? the highest priority u&er in a 
certain execution state. 

When called, RO must contain the execution state code <S* ). 

If a user is found with the state code, the user index number 

is returned in Rl and the C-flag is cleared. 

If no user is found with the specified state, the C-flag is 

set on return. 

*« Interrupts are disabled and left disabled if a user is found 

with the specified state. If no user is found, the interrupts 

are reenabled before returning. ** 
All registers are preserved except Rl. 



QSRCH: DISABL 

MOVE 

BEQ 
3$: CMP 

BEQ 

MOVE 

BNE 
; No user has 
1*: ENABL 

SEC 

RETURN 
> Found a user in the desired state 
; Leave the interrupts disabled on return 
2*: CLC } INDICATE SUCCESS 

RETURN 



RUNQHD, Rl 
1* 

RO, LSTATE<R1) 
2* 

LQLINK<R1),R1 
3* 
the desired state 



*« DISABLE ** 

GET # OF 1ST USER IN QUEUE 

BR IF QUEUE IS EMPTY 

IS THIS USER IN STATE OF INTEREST? 

BR IF YES — SUCCESS 

CHAIN FORWARD 

BR IF MORE TO CHECK 

** ENABLE *« 
SIGNAL FAILURE 



TSEXEC — 
QNSPND — 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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004724 
004730 
004734 



004736 
004740 
004744 
004750 



004752 
004754 
004760 
004764 



004766 
004770 
004774 
005000 
005004 
005006 
005012 



010146 
004737 
004737 
000421 



010146 
004737 
004737 
000415 



010146 
004737 
004737 
000407 



010146 
004737 
004737 
005061 
012601 
004737 
000207 
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SBTTL QNSPND — Put job in wait state 



There are four 
execution of a 
All four routi 
job state to a 
job scheduler 
Before placing 
check to see i 
If there is a 
to the state a 
completion rou 
'The difference 
queued at the 
job's time-sli 



routines tha 

job: QNSPND. 
nes perform t 

specified u>a 
to run some o 

the job in t 
f there is a 
pending compl 
ssociated uiit 
tine to run b 

between the 
head or tail 
ce quantum is 



t can be called to suspend the 

QNSPNX, QHDSPN> QHDSPX. 
he functions of changing the 
it state and then calling the 
ther job while the current job 
he specified wait state, these 
pending completion routine for 
etion routine, the job state is changed 
h the completion routine to allow the 
efore the job is suspended, 
four routines is whether the job is 
of the wait queue and whether the 

reset. 



is waiting, 
routines 
the job. 



QNSPND — Queue at tail of wait list, reset quantum. 

QNSPNX — Queue at tail of wait list, don't reset quantum. 

QHD3PN — Queue at head of wait list, reset quantum. 

QHDSPX — Queue at head of wait list, don't reset quantum. 

Inputs: 

RO = Job state to which job is to be set before calling scheduler. 

Outputs: 
Interrupts are enabled. 

Queue at tail of wait list, reset quantum. 



005014' 
004424 ' 



QNSPND: MOV 
CALL 
CALL 
BR 



R 1 , - ( SP ) 
QCKCPL 
ENQTL 
DOSPNR 



DO COMMON ENTRY SETUP ** DISABLE «« 
PUT JOB IN WAIT QUEUE «* ENABLE ** 
RESET QUANTUM AND SUSPEND JOB 



Queue at tail of wait list, don't reset quantum. 



005014' 
004424 ' 



QNSPNX : MOV 
CALL 
CALL 
BR 



R 1 , - ( SP ) 
QCKCPL 
ENQTL 
DOSPNX 



DO COMMON ENTRY SETUP ** DISABLE ** 
PUT JOB IN WAIT QUEUE ** ENABLE ## 
GO SUSPEND JOB 



Queue at head of wait list, don't reset quantum. 



005014' 



QHDSPX: MOV 
CALL 
CALL 
BR 



R 1 , - < SP ) 
QCKCPL 
ENQHD 
DOSPNX 



DO COMMON ENTRY SETUP ** DISABLE ** 
PUT JOB IN WAIT QUEUE #* ENABLE ** 
GO SUSPEND JOB 



Queue at head of wait list, reset quantum. 



005014' 
004222' 
0000000 

000210' 



QHDSPN: MOV 
CALL 
CALL 
DOSPNR: CLR 
DOSPNX: MOV 
CALL 
RETURN 



Rl, -(SP) 
QCKCPL 
ENQHD 
LQUAN ( R 1 ) 
(SP)+, Rl 
SCHED 



DO COMMON ENTRY SETUP #* DISABLE ** 
PUT JOB IN WAIT QUEUE ** ENABLE ** 
RESET JOB TIME-SLICE QUANTUM 

; CALL JOB SCHEDULER TO RUN ANOTHER JOB 
i RESUME EXECUTION OF OUR JOB 



i 
f 
f 
i 

i 
i 
i 
i 
I 
i 
i 
i 
i 
i 

i 
i 
i 
i 
i 



TSEXEC - 


— TSX-P 


1 U 5 E X G l. \ 


jtive Mo 


QNSPND - 


- Put J 


oh in wait state 


58 








59 








60 








6i 








62 








63 








64 








65 








66 








67 








6a 








69 








70 








7.t 








72 








73 








74 








75 








76 


005014 


010246 




77 


005016 


113701 


0000000 


78 


005022 






79 








80 








81 








82 


005030 


016102 


OOOOOOG 


83 


005034 


001413 




84 


005036 


005761 


ooooooe 


85 


005042 


001010 




86 


005044 


105737 


OOOOOOG 


87 


005050 


001005 




88 


005052 


120062 


OOOOOOG 


89 


005056 


101402 




90 


005060 


116200 


OOOOOOG 


91 








92 








93 








94 


005064 


012602 




95 


005066 


000207 
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QCKCPL is a local subroutine called by the queue-and-suspend 
routines to perform common setup functions. 
The foiloujing operations ave performed. 

1) Interrupts are disabled. 

2) The current job number is loaded into Rl. 

3) If there is a pending completion routine> the priority request 
for the job is changed to the priority of the completion routine. 

I n p u t s : 
RO = Requested wait state for job to be placed in. 



Outputs: 
RO ~ Job state that job is actually to be put in. 
Rl = Current job index number. 
Interrupts are left disabled. 



QCKCPL: MOV 
MOVE 
DISABL 



R2, -(SP) 
C0RUSR,R1 



; Get current job index number 
i #* Disable «•«• 



Check for pending completion routines 



9*: 



MOV 


LCMPL<R1),R2 


BEQ 


9* 


TST 


LIOHLD(Rl) 


BNE 


9* 


TSTB 


CURCP 


BNE 


9* 


CMPB 


RO, CQ*RNS(R2) 


BLOS 


9* 


MOVE 


CQ*RNS(R2),R0 


f- i n i s h e d 




MOV 


<SP)+, R2 


RETURN 





Are there any pending completion rtns? 

Br if not 

Are we holding completion routines? 

Br if yes 

Are u>e in a completion routine now? 

Br if yes 

Does compl routine have higher priority? 

Br if not 

Change to prio as specified by compl routine 
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1 
2 
3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



005070 
005072 
005100 



005102 
005106 
005112 
005116 
005120 



005124 
005130 
005136 
005140 
005144 
005146 
005154 
005156 
005162 
005164 



012700 
004737 
105237 
012600 
000207 



010146 
113701 
032761 
001411 
120137 
00 1 406 
032761 
00 1 002 
004737 
012601 
000207 



SBTTL FORCEX -~ Force user execution 



FORCEX is called to force execution of the user mhose line 

index number is in Rl. 

The user is taken out of any wait state and placed in 

a high priority execution queue. 

All registers are pre&erved. 



010046 FORCEX: MOV 

026127 0000000 OOOOOOG CMP 

103404 BLO 



RO, -<SP) 

LSTATE<R1), #S**HIP ; IS USER RUNNING NOW? 

1* ;BR IF YES — CAN'T BEAT THAT 



User is not running now. 

Put user in high priority run state 



0000000 
004424 •■ 
000004 ' 



1$: 



MOV 


#S*IOFN, RO 


CALL 


ENQTL 


INCB 


DOSCHD 


MOV 
RETURN 


(SP)+, RO 


. SBTTL 


CHKABT — Check 



SET HIGH-PRIORITY STATE CODE 
PUT USER AT TAIL OF QUEUE 
REQUEST A JOB SCHEDULER CYCLE 



for abort condition 



CHKABT IS CALLED TO SEE IF AN ABORT CONDITION 
SUCH AS DOUBLE CTRL-C OR LINE DISCONNECT HAS 
OCCURED. IF AN ABORT CONDITION IS PENDING 
THE USER IS ABORTED BY JUMPING DIRECTLY TO 
STOP. IF NO ABORT CONDITION IS PENDING 
CHKABT RETURNS TO THE CALLING ROUTINE. 
ALL REGISTERS ARE PRESERVED. 



CHKABT: MOV 



OOOOOOG 
OOOOOOC OOOOOOG 

000002 ' 

000000<5 OOOOOOG 

OOOOOOG 



2*: 
1^: 



MOVB 

BIT 

BEQ 

CMPB 

BEQ 

BIT 

BNE 

CALL 

MOV 

RETURN 



R 1 , - < SP ) 

CORUSR.Rl i GET USER INDEX NUMBER 

#<«CTRLC!*DISCN>, LSW<R1 ); ABORT PENDING' 



1* ; BRANCH 

R 1 , USR JOB i ARE WE 

1* ; IF YES 
#*NOABT, LSW9 < R 1 ) i I s the 

1* ;Br if 

STOP ; ABORT 
(SP)+, Rl 



IF NOT 

CURRENTLY DOING A DIRECTORY OPERATION? 

DON'T ABORT NOW 

No-abort flag set 



yes 
THE 



— Don't 
USER 



abort 



for 
now 



job? 



TSEXEC - 
URHGO - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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SBTTL UREGD -— Re&tart user at head of wait queue 



URLGO is called to restart the user who 

is at the head of the wait queue whose state code 

This user is removed from the wait queue and 

added to the tail of the S*IOFN queue. 

Ail registers are preserved. 

Interrupts are enabled on return. 



is in RO. 



005166 
005170 
005174 
005176 
005202 
005204 



010146 
004737 
103402 
004737 
012601 
000207 



004654' 



005206 ' 



UREGO: 



1$: 



MOV 


R 1 , - < SP ) 


CALL 


QSRCH 


BCS 


1* 


CALL 


QHIPRI 


MOV 


(SP)+, Rl 


RETURN 





iFIND USER AT HEAD OF QUEUE * DISABLE » 
iBR IF CAN'T FIND ANY USERS IN THAT STATE 
i REQUEUE USER AT TAIL OF S*IOFN QUEUE 



c 
I 
I 
« 
I 
< 

4 

I 

i 

c 

€ 
€ 

i 

i 
i 
i 
i 
i 



i 



c 

c 
« 
c 

< 
I 
< 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 



TSEXEC ~ 
QHIPRI - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

iO 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



005206 010046 



005210 
005214 
005216 
005222 
005224 
005230 
005234 
005240 



005242 
005246 
005252 
005254 
005260 
005264 
005266 



005272 
005276 
005300 
005304 
005306 
005312 
005314 
005320 
005324 
005330 
005332 



005761 
001426 
005761 
001407 
005361 
012700 
004737 
000433 



005761 

001006 

004037 

OOOOOOG 

004737 

000406 

005361 

012700 

004737 

012600 

000207 



0000000 

0000000 

0000000 
0000000 
004424 ' 



005061 

004037 

0000000 

013700 

163700 

003410 

010061 



OOOOOOG 
010040' 

0000000 
0000000 

OOOOOOG 



0000000 

010040' 

005334' 

OOOOOOG 
OOOOOOG 
004424 ' 



. SBTTL QHIPRI — Put user in high priority queue 

QHIPRI is called to place the user whose line index number is 
in Rl at the tail of the S*IOFN high priority execution queue. 
All registers are preserved. 



QHIPRI: HOV 



RO, -(SP) 



TST 


LITIME<R1) 


BEQ 


3* 


TST 


LHIPCT(Rl) 


BEQ 


4* 


DEC 


LHIPCT<R1) 


MOV 


#S$HICP> RO 


CALL 


ENQTL 


BR 


2* 



4*: 



3*: 



1*: 



2*: 



If this is an interactive job doing I/O, put the job in the S*HICP 

state. 



; Is this job interactive or compute bound? 

i Br if compute bound 

J Used up all allowed I/O ops for interactive? 

; Br if yes — no longer interactive 

i Decrease remaining number of interactive I/O 

;Get interactive completion state code 

j Put job at tail of that queue 



Interactive job has performed maximum number of I/O operations uihile 
in interactive state. Reclasify the job as non-interactive. 

; Say job is no longer interactive 
; Signal that INTIDC has been used up 

i Get # high-prio boosts allowed for CPU jobs 
; Any remaining after number already used? 
i Br if not 
; Set number of remaining high-prio boosts 

Job is compute bound. 

Put job in I/O complete state or CPU state. 

iHAS JOB USED UP ALL OF ITS HIGH-PRIO HITS? 

; BR IF NOT 

; SIGNAL THAT HIPRCT WAS USED UP 

; QUEUE AS CPU-BOUND JOB IF YES 

i ONE LESS HIGH-PRIORITY HIT REMAINING 

; GET STATE CODE 

i PUT USER AT TAIL OF QUEUE 



CLR 


LITIME<R1) 


JSR 


RO, QUNSIG 


. WORD 


$SGIIO 


MOV 


VHIPCT, RO 


SUB 


VINTIO, RO 


BLE 


5* 


MOV 


RO, LHIPCT(Rl) 



TST 


LHIPCT<R1) 


BNE 


1* 


JSR 


RO, QUNSIG 


. WORD 


$SGHID 


CALL 


QCPU 


BR 


2* 


DEC 


LHIPCT<R1) 


MOV 


#S«IOFN, RO 


CALL 


ENQTL 


MOV 


<SP)+, RO 


RETURN 





TSEXEC 
QCPU 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 



SBTTL QCPU 



— PJcscB job in CPU-bound run queue 



QCPU is called to chancjr the run-state of a job to be 
compute bound. 



I n p u t s : 
Rl = Index number of job to be affected. 
Job's time quantum is reinitialized. 



005334 012700 OOOOOOG 

005340 004737 004424' 

005344 005061 OOOOOOG 

005350 013761 OOOOOOG OOOOOOG 

005356 000207 



GICPU: 



MOV 

CALL 

CLR 

MOV 

RETURN 



#S*CPU, RO J PUT JOB IN CPU-BOUND EXECUTION QUEUE 
ENQTL {REQUEUE JOB AT TAIL OF THAT QUEUE 

LQUAN(Rl) i REINITIALIZE JOB'S TIME QUANTUM 
VHIPCT, LHIPCT<R1)JREINIT NUMBER OF HIGH-PRIO HITS FOR JOB 



TSEXEC - 


— TSX-Plus Exch: 


utive Ho MACRO M 


GTSYMB - 


— Get system m< 


frsagc^ buffeT 


1 

2 








3 








4 








5 








6 








7 








8 








9 


005360 






10 


005366 


013704 


OOOOOOG 


11 


005372 


001417 




12 








13 








14 








15 


005374 


016437 


ooooooe OOOOOOG 


16 


005402 


005337 


OOOOOOG 


17 


005406 






18 








19 








20 








21 


005414 


010400 




22 


005416 


062700 


OOOOOOG 


23 


005422 


010064 


OOOOOOG 


24 


005426 


000241 




25 


005430 


000404 




26 








27 








28 








29 


005432 






30 


005440 


000261 




31 


005442 


000207 





. SBTTL GTSYMB — Get system message buffer 

GTSYMB is called to get a system message buffer block. 

Outputs: 
R4 -T. Address of message block acquired. 
C-fiag set if no free message blocks are available. 



GTSYMB: DISABL 

MOV SNMSHD, R4 
BEQ 1* 



*«• DISABLE «■* 

GET ADDRESS OF 1ST FREE MESSABE BLOCK 

BR IF NO FREE BLOCKS 



Got a free message block. Unlink from free list. 

MOV SB*LNK<R4), SNMSHD; REMOVE BLOCK FROM FREE LIST 
DEC NMUMB J DECREASE # FREE BLOCKS 

ENABL i *«■ ENABLE *^f 

Initialize pointer into test area of buffer. 

; GET ADDRESS OF BUFFER 

; POINT TO TEXT STORAGE AREA IN BUFFER 

i SET POINTER TO TEXT AREA 

; SIGNAL SUCCESS ON RETURN 



MOV 


R4, RO 


ADD 


#SB*TXT, RO 


MOV 


RO. SB*PNT<K4) 


CLC 




BR 


2* 



No free message blocks. 



1'$: 


ENABL 




SEC 


2*: 


RETURN 



; *-tJ ENABLE ** 

; SIGNAL FAILURE ON RETURN 
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SBTTL TSXTRP 



Catch traps 



23 
24 



3 

4 

5 

6 

7 

8 

9 
10 005444 
11 
12 
13 
14 

15 005452 

16 005454 

17 005460 

18 005466 

19 005470 

20 005472 

21 005474 

22 005502 
005506 
005510 

25 005512 

26 005520 

27 005526 

28 005532 
29 

30 
31 

32 005536 

33 005540 

34 005542 

35 005550 

36 005556 

37 005562 
38 

39 

40 

41 

42 

43 

44 

45 005576 

46 

47 

4S 005602 

49 005604 

50 005610 

51 005616 
52 

53 005620 

54 005622 
55 

56 005626 
57 



005566 
005574 



010446 
1 1 3704 
032764 
001410 
012604 
011646 
016666 
005066 
000002 
010546 
013737 
013737 
012705 
000137 



010446 
010546 
013737 
013737 
012705 
000137 



032766 
00 1 002 



000177 



010446 
1 1 3704 
032764 
001403 

012604 
000137 

000137 



TSXT4 and TSXTIO catch traps to 4 and 10 respectively. 
If the user did a . TRPSET his routine is entered. 
Otherwise the job is aborted. 



Trap to 250 (Memory management trap) 

012737 OOOOOOG OOOOOOG TRP250: MOV #MMENBL> tttSROMMRi RESET ERROR FLAGS 

Treat trap to 250 like trap to 4. 



OOOOOOG 
OOOOOOG OOOOOOG 



000004 000002 
000004 



OOOOOOG 000034' 
120002 OOOOOOG 
000001 
OOOOOOG 



Trap to 4. 

TRP4: MOV 
MOVE 
BIT 
BEQ 
MOV 
MOV 
MOV 
CLR 
RTl 

1$: MOV 
MOV 
MOV 
MOV 
JMP 

Trap to 10 



R4. -<SP) 

CORUSR, R4 ;Get current job index number 

#*GEMAR, LSWl 1 (R4)i Are we accessing user's argument 



block? 



TRPIO: 



OOOOOOG 000034' 
120002 OOOOOOG 
000002 
OOOOOOG 



MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



1* 

(SP)+, R4 
< SP ) , - < SP ) 
4 < SP ) , 2 < SP } 
4(SP) 

R5, -<SP) 

e#KPAR5, TRPAR5 

@#12C 

#1. R5 

TSXTX 



R4, -<SP) 
R5, -<SP) 
€!#KPAR5. TRPAR5 
©#120002, ABRTOV 
#2, R5 
TSXTX 



; Br if not 

; Pop R4 

i Move down PC 

; Move down PS 

j Store value to 

; Return following 



be returned 
MFPD with O 



on stack 



SAVE KPAR5 
SAVE RAD50 
ERROR CODE 
ENTER TRAP 



FROM TRAP FOR ERROR HANDLING 

OVERLAY NAME 

FOR TRAP 4 

HANDLER IN TSX OVERLAY 



SAVE KPAR5 
SAVE RAD50 
ERROR CODE 
ENTER TRAP 



FROM TRAP FOR ERROR HANDLING 

OVERLAY NAME 

FOR TRAP 10 

HANDLER IN TSX OVERLAY 



Trap to 14 (Breakpoint trap) 



OOOOOOG 000002 TRP14: 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



BIT #UMODE, 2<SP) >DID BREAKPOINT OCCUR IN USER OR KERNEL MODE? 
BNE 1* i BR IF USER MODE 

J Breakpoint occurred in kernel mode. 
J Give control to system DDT. 

JMP tODTTRP i ENTER SYSTEM DEBUGGER 

> Breakpoint occurred in user mode. 
i Give control to user's debugqer program. 
1*: MOV R4, -(SP) 

Get current job index number 

Is program being run with TSX debugger? 

Br if not 



MDVB CORUSR> R4 
BIT #*DEBUG, LSW9(R4) 
BEQ 2* 
Enter TSX-Plus debugger 



MOV <SP)+, R4 

JMP BRKENT ; Enter TSX-Plus debugger 

> Enter user's debugger 
2$: JMP TRPBPT i ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 



TSEXEC — TSX-Plus Executive 
TSXTRP -— Catch traps 



58 
59 

60 005632 

61 005634 

62 005636 

63 005642 

64 005646 
65 

66 

67 

68 005652 

69 

70 

71 

72 005664 

73 005666 

74 005670 

75 005674 

76 005676 

77 005702 

78 005706 
79 

BO 
81 
82 
83 

84 005712 

85 005716 

86 005720 

87 005724 

88 005732 



010446 
010546 
012705 
012704 
000137 



010446 
010546 
105737 
001017 
012705 
012704 
000137 



004537 
000000 
1 1 3704 
052764 
000207 
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Trap to 20 (lOT) 



000013 
000020 
OOOOOOG 



OOOOOOG 

000015 
000034 
OOOOOOG 



TRP20: 



MOV 
MOV 
MOV 
MOV 
JMP 



R4, -<SP) 
R5, -(SP) 
#13, R5 
#20, R4 
TRPCOM 



Trap to 24 (Poiuer fail) 
TRP24: DIE #EM*PFT 



GET ERROR CODE 

GET TRAP LOCATION 

ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 



i SYSTEM HALT IF POWER FAIL TRAP 



Trap to 34 (TRAP instruction) 



TRP34: 



MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


TSTB 


DOTRMP 


13NE 


TRPMAP 


MOV 


#15, R5 


MOV 


#34, R4 


JMP 


TRPCOM 



006404 ' 

OOOOOOG 
OOOOOOG OOOOOOG 



; Using TRAP instruction for mapping? 

; Br if yes 

iGET ERROR CODE 

;GET TRAP LOCATION 

; ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 

Trap to 244 (Floating point exception interrupt). 

Set *FPUEX flag and return through SYSXIT which will do actual 

FPU exception processing when we are about to return to user mode. 

; Standard interrupt entry 

i Run at priority 7 

i Get current job index number 

i Set flag for job saying FPU interrupt 

j Return and perform FPU exception code 



FPTRAP: 


JSR 


R5, INTEN 




. WORD 







MOVE 


CORUSR, R4 




BIS 


#«FPUEX, LSW(R4) 




RETURN 





i 
i 

4 
I 

i 



TSEXEC ■ 
TRFMAP - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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005734 



005734 042766 0000000 000006 



005742 020027 0000000 

005746 103404 

005750 052766 0000000 000006 

005756 000423 



005760 116005 0000000 



005764 006300 

005766 016004 0000000 

005772 010465 0000000 

005776 010465 0000000 

006002 010465 0000000 



006006 016004 0000000 

006012 010465 0000000 

006016 010465 0000000 

006022 010465 0000000 



006026 012605 
006030 012604 
006032 000002 



. SBTTL TRPMAP — High-performance memory mapping service 

This routine is jumped to when a TRAP instruction is executed and uie 
are are doing high-performance memory mapping. 

Inputs: 
RO = Mapping region index number. 

Stat k : 

<SP) = R5 
2<SP) = R4 
4(SP) = PC 
6<SP) = PS 

IRPMAP: 

Clear C-flag in PS 

BIC #CFLAG, 6<SP) i Clear C-flag in PS on stack 

Make sure the region index number is valid 

i Is region index valid? 

; Br if ok 

i Set carry flag for return 



CMP 


RO, #MAXSRD 


BLO 


1* 


BIS 


#CFLAG. 6<SP) 


BR 


9« 



Get the PAR index 
1*: MDVB SR$PX<R0),R5 
Load the PAR value 



ASL 
MOV 
MOV 
MOV 
MOV 



RO 

SR*PAR(R0),R4 
R4,RPAR<R5) 
R4, CUPAR0<R5) 
R4, UPAR0<R5) 



Load the PDR value 



9$: 



MOV 


SR*PDR<R0),R4 


MOV 


R4, RPDR<R5) 


MOV 


R4, CUPDR0<R5) 


MOV 


R4, UPDR0(R5) 


"- i n i B h e d 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


RTI 





Get PAR index number 



Get ujord table index 

Get value to load into PAR registers 

Shared run-time mapping for this PAR 

Set PAR value in context block 

Set PAR value in hardware register 



Get value to load into PDR registers 
Shared run-time mapping for this PDR 
Set PDR value in context block 
Set PDR value in hardware register 



; Return from TRAP instruction 



TSEXEC • 


--• TSX-Plus Exec: 


utive Ho 


UbXINT - 


— Uri e X p 


e c t e d i n 


terrupt 


1 








2 








3 








4 








5 








6 








7 








S 








9 








10 


006034 


013703 


0000000 


U 


006040 


006303 




12 


006042 


010302 




13 


006044 


042703 


177077 


14 


006050 


042702 


177741 


15 


006054 


006302 




16 


006056 


050203 




17 


006060 






18 








19 








20 








21 


006076 


000002 




22 








23 








24 








25 


006100 






26 








27 








28 








29 


006112 
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SBTTL UEXINT — Unexpected interrupt 



An interrupt occured at an unexpected location. 

Dn entry to UEXINT the interrupt vector address is encoded 

in the PS that was set by the interrupt vector. 

The address has the two low-order bits removed <they are assumed 

to be zero) and the remainder of the address stored in the 

PS fields priority and n-z-v-c (note the T field is not used). 



UEXINT: MOV 
ASL 
ilOV 
BIC 
lUC 
ASL. 
BIS 
DIE 



@#PSW, R3 
R3 

R3, R2 
#•■^0700. R3 
#--C36, R2 
R2 

R2, R3 
#EM*UEI, R3 



; GET CURRENT PROCESSOR STATUS VALUE 

;ADD ONE LOW-ORDER ZERO BIT 

i COPY VALUE 

;MASK OUT ALL BUT PRIO FIELD (SHIFTED) 

; MASK OUT ALL BUT N-Z-V-C FIELDS (SHIFTED) 

; ALIGN LOW-ORDER FIELD WITH HIGH-ORDER 

i COMBINE LOW- AND HIGH-ORDER FIELDS 

i SYSTEM CRASH — ARG VALUE = INT LOCATION 



Enter at UEXRTN if me should ignore unexpected interrupts 



UEXRTN: RTI 

i Memory parity error 

MEMPAR: DIE #EM$MPR 

Jump occured to location 
JMPO: DIE #EM*JMO 



; Return from interrupt — Ignore it 



; MEMORY PARITY ERROR 



i FATAL SYSTEM HALT 



TSEXEC • 


— TSX-Plus E)isc 


utive Mo 


UbXINT - 

1 
2 
3 


-■■■■ Unexp 


e c t e d i T 


terrup t 








4 








5 








6 








7 








3 








9 








10 








11 


006124 






12 








13 








14 








15 


006124 


032737 


0000000 


16 


006132 


00 1 OOL' 




17 


006134 


000241 




18 


006136 


000207 




19 








20 








21 








22 


006140 


106506 




23 








24 








25 








26 


006142 


02 1 627 


000400 


27 


006146 


10340r' 




28 


006150 


02 1 637 


OOOOOOG 


29 


006154 


10300n 




30 








31 








32 








33 


006156 


006016 




34 


006160 


103003 




35 








36 








37 








38 


006162 


012705 


000011 


39 


006166 


000261 




40 


006170 


005226 




41 








42 








43 








44 


006172 


000207 
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CHKUSP is called to determino if the current user-mode stack pointer CSP> 
is valid. The SP is checked to make sure it is even and >400. 
CKUSP2 is an alternate entry point that is a little faster if it is 
already known that the previous mode was user. 

Outputs; 
C-flag cleared if SP is valid, Set if invalid. 
R5 = abort code for invalid stack if error detected, otherwise unaltered. 

CHKUSP : 

Return with carry cleared if previous mode is not user 



OOOOOOG 



BIT 
BNE 
CLC 
RETURN 



#UPMODE, etpsw 
CKUSP2 



PREVIOUS MODE = USER? 

BR IF YES 

CLEAR CARRY FOR RETURN 



■Set the user mode SP 
CKUSP2: MFPD SP 



; GET USER-MODE SP 



Make sure the stack is in the right range 



CMP 


< SP ) , #400 


BLO 


2* 


CMP 


<SP),UHIMEM 


BHIS 


2* 



DID A STACK OVERFLOW OCCUR? 
BR IF YES 

IS STACK ADDRESS TOO HIGH? 
BR IF TOO HIGH 



Make sure the stack address is even 



ROR 
BCC 



(SP) 
3* 



; IS THE STACK ADDRESS EVEN? 
i BR IF EVEN — OK 



User's stack pointer is invalid 
^^: MOV #11, R5 



MOV 
SEC 
3*: INC <SP)+ 

Finished 

9f: RETURN 



LOAD ABORT ERROR CODE VALUE 

SIGNAL ERROR ON RETURN 

CLEAN OFF STACK (DON'T ALTER C-FLAG) 



TSEXEC - 


— TSX~P 


CLKINT - 


-- Clock 


1 




2 




3 




4 




5 




6 


006174 


7 




8 




9 




10 




11 


006174 


12 


006200 


13 


006202 


14 




15 




16 




17 




18 


006206 


19 


006212 


20 


006214 


21 


006222 


22 




23 




24 




25 


006224 


26 


006230 


27 




2S 




29 




30 




31 


006232 


32 


006236 


33 




34 




35 




36 


006244 


37 


006250 


38 


006252 


39 


006256 


40 




41 




42 




43 


006260 


44 




45 




46 




47 




48 


006264 


49 
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105737 0000000 

00 i 4 1 1 

00 5737 000000<5 



105337 000014' 

00 1 004 

112737 000020 000014 

000420 



005237 000100' 
003015 



011637 000102' 
016637 000002 000104 



004537 006404 ' 

000040 

004537 007332 ' 

ooooooe 



000137 OOOOOOG 



00000« 



. SBTTL CLKINi 



Clock interrupt routine 



CLKINT is the interrupt E-ervice routine for clock interrupts. 
It iB entered directly from the interrupt (priority = 7). 



CLKINT 



TSTB 


PROFLG 


BEQ 


1* 


TST 


@#PCCCR2 



If this is a PR0-350> access the CSR2 clock register to reenable 

the interrupt. 

i Is this a PRD--350? 

> Br if not 

i Ac knowledge the interrupt 

Ignore every 16'th clock tick on a PRO-350 so that the effective 
clock rate will be 60 Hz. 

; Is this the 16'th tick? 

; Br if not 

; Reset the counter 

; Ignore this clock tick 



DECB 


PROSKP 


BNE 


1* 


MOVE 


#16. , PROSKP 


BR 


CLKRT.T 



Count another clock tick 



1*: 



INC 
BGT 



TIKCNT 
CLKRTI 



J ANOTHER TICK HAS OCCURED 

J BR IF STILL PROCESSING LAST TICK 



We are not reentering the clock processing routine. 
Save interrupted PC 8< PS for performance monitor to use. 



MOV 
MOV 



< SP ) , CLKPC 
2<SP>, CLKPS 



i INTERRUPTED PC 
; INTERRUPTED PS 



JSR 


R5, INTEN 


. WORD 


40 


JSR 


R5, FORK 


. WORD 


FP*CKT 



Drop priority to 6 then fork. 

DROP RUNNING PRIORITY TO 6 
MASK TO SET PR 10 TO 6 
NOW FORK TO GET TO PRIORITY 
Specify fork priority 

CLKRUN is entered to perform clock servicing in the system mapped region. 

JMP CLKRUN i ENTER THE SYSTEM MAPPED REGION 

The clock processing routine is still running from the last tick. 
Don't reenter it. 



CLKRTI: RTI 



; RETURN FROM INTERRUPT QUICKLY 



TSEXEC " 
ENSYS - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



~ TSX"Plus Exncutive no 
- Enter system state 
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006266 012604 



006270 
006274 



105737 
002017 



000010 •" 



006276 
006302 



006304 
006312 
006316 



013746 
010046 



0000000 



004537 
000000 



006404 



006320 
006324 
006330 



012437 
004537 
000000 



006330' 
007332 ' 



006332 000114 



. SBTTL ENSYS — Finter system state 



ENSYS is called to enter system state. What this consists of is switching 
to the interrupt stack and saving the kernel PAR6 value. 

Basically, what we do is fake an interrupt and then do a . INTEN and .FORK. 
On return from ENSYS we bt& running in system state at fork level using 

the interrupt stack. 

To exit from system state, do a RETURN. 



The form of the call to ENSYS is: 



MOV 
CALL 
. WORD 



#return.,address) RO 

ENSYS 

f or k _pr ior i ty 



j Get return address 
; Enter system state 
iFork priority level to run at 



Inputs: 
RO = Address of routine to be jumped to when a RETURN is done to exit 

from system statt?. 

Outputs: 
R0> R4 and R5 are destroyed. 

On return we are in system state running on the interrupt stack. 
All registers except RO are preserved across the ENSYS. 

ENSYS: MOV (SP)+, R4 ; Get return address to R4 

Check to see if we ar^i already running in system state. 



TSTB 
BGE 



STKLVL 
10* 



i Are we already in system state? 
i Br if already in system state 



We BTB not currently in system state. 

Put PC ?< PS on the stack to make it look like an interrupt occured. 



MOV @#PSW, -<SP) 
MOV RO, -(SP) 



i PS 



Do 



J PC — Return here when we exit system state 
INTEN to enter system state. 



DISABL 

JSR R5, INTEN 

. WORD 



; fr-K- Disable interrupts «■» 
; Enter system state 
/Priority = 7 



We are now running in system state on the interrupt stack. 

The processor priority level is 7. 

Now do a FORK so that we will not hold out interrupts. 

i Set fork priority 

; Do a fork 
1*: .WORD iFork priority is stored here 

> 

■> We a,Ts now running in system state, fork level. 
; Return to caller in system state. 
; Caller should do a REIURN to exit from system state. 



MOV 


(R4)+, 1* 


JSR 


R5, FORK 


. WORD 






3* : 



JMP 



<R4) 



iCall calling routine in system state 



TSEXEC - 


— TSX-P 


i LI S E X {? {, 


utive Md 


ENSYS - 


— Enter 


sy s tem 


state 


58 








59 








60 








61 


006334 


010046 




62 


006336 


010146 




63 


006340 


010246 




64 


006342 


010346 




65 


006344 


013746 


0000000 


66 


006350 


1 3746 


OOOOOOG 


67 


006354 


012746 


006364 ' 


68 


006360 


000164 


000002 


69 








70 








71 








72 








73 


006364 


012637 


000000C5 


74 


006370 


012637 


OOOOOOG 


75 


006374 


012603 




76 


006376 


012602 




77 


006400 


012601 




78 


006402 


000207 
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u(as called whilR already running in system state. 
Save context and set up stack so me will restore it on return. 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



RO, 
Rl, 



< SP ) 

< SP ) 
R2i -(SP) 
R3, -(SP) 
e#KPAR6, • 
@#KPAR5. ■ 
#11$, -(SP) 
2(R4> 



(SP) 
( OP ) 



iSet ultimate return address 



i Save kernel PAR 6 

i Save kernel PAR 5 

; Set address of routine for ENSYS exit 

; Enter user's routine 



Finished uiith routine in system state. 
Drop down a level. 



11*: 



MOV 


(SP)+, @#KPAR5 


j Restore kernel PAR 5 


MOV 


(SP)+, @#KPAR6 


i Restore kernel PAR 6 


MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+,R1 




RETURN 




; Return 



TSEXEC - 
I NT EN ~ 

i 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

WW 

34 
35 
36 
37 
38 
39 
40 
4.1. 
42 
43 
44 
45 
46 
47 
43 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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006404 010446 



006406 



006414 
006420 
006424 



006426 
006432 



006436 
006442 
006446 
006454 
006460 
006464 
006470 



105237 
105237 
003004 



010637 
013706 



013746 
1 1 3746 
112737 
013746 
013746 
011537 
042537 



000007 ' 
000010' 



000120' 
000022 ' 



000122' 

000011 ' 

000000 

OOOOOOG 

0000000 

000122' 

ooooooe 
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S13TTL INTEN — Interrupt entry processing 



INTEN performs the RT-11 . INTEN function which is used to begin 
interrupt processing. The form of the call to INTEN is: 



JSR R5, INTEN 

. WORD C^CPriority to 



run at>&340 



INTEN switches to the TSX interrupt stack and then calls the calling 

routine back as a coroutine. 

When the interrupt processing task completesj it exits back to 

INTEN by doing an RTS PC. 

Before returning from interrupt processing INTEN calls any routines 

queued as a result of .FORK requests and also may call the job scheduler 

if any job scheduling event occured during interrupt processing. 

There are three "level indicators" that indicate the processing state. 

INTLVL indicates the hardware interrupt level. 

STKLVL indicates if we are running on the interrupt stack. 

FRKPRI indicates the current fork processing priority. 

The initial (non-interrupt* non-fork) value for all three is -1. 

If INTLVL >= we ars in an interrupt routine. 

If INTLVL < we are not at interrupt level but may be at fork level. 

If FRKPRI > we are at fork level. 



INTEN: MOV 



R4, -<SP) 



; R5 is already on stacki save R4 too. 



We should already be running at processor priority level 7. 
However, make sure we are at level 7. 

DISABL ; j ; «* Disable interrupts ** 

Increment interrupt level counter. 

; i Increment interrupt level counter 

i ; Are we already running on interrupt stack? 

; i Br if yes - Interrupting another int/fork 

We were at level when the interrupt occured. 

Save user's stack pointer and switch to TSX interrupt stack. 



INCH 


INTLVL 


INCB 


STKLVL 


HOT 


1* 



€ 



MOV 
MOV 



SP, USP 
INTSTK, SP 



j i } Save user's stack pointer 
iijSwitch to interrupt stack 



Drop running priority to that requested by caller. 



000011 



1*: MOV INTPRI,-<SP) 

MOVB FRKPRI, -<SP) 

MOVE #0, FRKPRI 

MOV @#KPAR6, -(SP) 

MOV @#KPAR5, -<SP.) 

MOV (R5), INTPRl 

BIC <R5)+, @#PSW 



i i Save current running priority 
; ; Save current fork level priority 
; ; Not at fork level <preserve C-bit) 
; ; Save kernel-mode PAR6 register 
; i Save kernel-mode PAR5 register 
i i Set new priority 
Drop running priority 



We are now running at the requested priority. 
Call our caller back as b coroutine. 
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IIMTEN — ■ Interrupt entry procesBiiig 

58 006474 004711^ CALL ©R5 ;Call caller as a coroutine 

59 006476 INTHNX: i Must immediately follow CALL eR5 



rSEXEC -- TbX-P 


1 u s Ex (? t. 


utive Mo 


MACRO VO 


INTEN — InterTMjpt snt 

i 


V y p r o c e 


ET. S i T 1 Ci 


2 
3 








4 








5 








6 006476 








7 006504 


012637 


0000000 




8 006510 


012637 


0000000 




9 006514 


112637 


000011 ' 




10 006520 


012637 


000122' 




U 006524 


105337 


000007 ' 




12 006530 


002405 






13 








14 








15 








16 








17 








IS 








19 006532 


105337 


000010' 




20 006536 


012604 






21 006540 


012605 






22 006542 


000002 






23 








24 








2D 








26 








27 








28 006544 


010346 






29 006546 






( 


30 006554 


013703 


00012^J ' 




31 006560 


001515 






32 006562 


126337 


ooooooe 


000011 ' 


33 006570 


101511 






34 








35 








36 








37 006572 


1 1 3746 


000011 ' 




38 006576 


116337 


ooooooe 


000011 ' 


39 006604 


016337 


0000000 


000124' 


40 006612 








41 








42 








43 








44 006620 


013746 


000132' 




45 006624 


010046 






46 006626 


010146 






47 006630 


010246 






48 006632 


013746 


0000000 




49 006636 


013746 


OOOOOOG 




50 








51 








52 








53 006642 








54 006650 


013763 


0000000 


OOOOOOG 


55 006656 


010337 


OOOOOOG 




56 






i 


57 






f 
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Interrupt processing routine is finished. 

See if we are returnincj to level or to a lower level interrupt routine. 



.TNTXIT: DISABL 
MOV 
MOV 
MOVB 
MOV 
DECS 
BLT 



<SP)+, gl#KPAR5 
(SP)+, @#KPAR6 
<SP)+, FRKPRJ 
<SP)+.. INTPRI 
INTLVL 
1* 



i **• Disable interrupts «■* 

; Restore kernel-mode PARS register 

; Restore kernel-mode PAR6 register 

i Restore fork processing priority 

i Reset interrupt priority 

; Are we returning to level O? 

j Br if yes 



DECB 


STKLVL 


MOV 


<SP)+, R4 


MOV 


<SP)+, R5 


RTI 





We are about to return to a lowei — level interrupt. 

We go back to lower level interrupt routines before we check 

for pending fork requests. This is done to give all interrupt routines 

priority over all fork routines. 

i We are going down one level on the stack 

; Continue processing lower-priority interrupt 

We are returning to lev£?l 0. 

See if there are any pending fork queue requests. 

R3, -<SP) 

j ** Disable interrupts »# 
FRKCQE. R3 ; Are there any pending fork requests? 
6* ; Br if not 

FQ$PRI<R3) J FRKPRI; Is pending request higher prio than current? 
6* ; Br if not 

There is a fork request that needs to be processed 

MOVB FRKPRI,-<SP) i Save current fork priority 

MOVB FQ*PRI <R3.>, FRKPRI i Set current fork priority 

MOV FQ*LNK<R3)>FRKCQE ; Remove fork block from pending list 

ENABL ; ** Enable interrupts ** 

Save current context before entering the fork routine 

MOV CURFRK. ~<SP) ; Address of currently running fork routine 

MOV RO, -<SP) 

MOV R1,-(SP) 

MOV R2, -<SP) 

MOV @#KPAR6, -<SP) 

MOV @#KPAR5, -(SP) 



1$: 


MOV 


2*: 


DISABL 




MOV 




BEQ 




CMPB 




BLOS 



j Save kernel-mode PAR6 register 
j Save kernel-mode PARS register 



Return fork request block to the free list 

DISABL i fi-* Disable interrupts ** 

MOV FREFRK, FQ*LWK<R3)j Put fork block back on free list 

MOV R3, FREFRK 

See if fork request has be? en cancelled 



c 

i 
i 

i 

I 
( 

' i 

i 
i 

€ 

i 

i 
1 
i 

i 

I 
i 

i 
i 
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50 








59 


006662 


016337 


0000000 OOOOOOG 


60 


006670 


016337 


0000000 OOOOOOG 


61 


006676 


016304 


0000000 


62 


006702 


001403 




63 


006704 


005024 




64 


006706 


00 5714 




65 


006710 


00 1 42P 




66 








67 








68 








69 


006712 


016304 


OOOOOOG 


70 


006716 


016305 


OOOOOOG 


71 


006722 


016302 


OOOOOOG 


72 


006726 


016301 


OOOOOOG 


73 


006732 


016300 


OOOOOOG 


74 


006736 


010037 


000132' 


75 


006742 


016303 


OOOOOOG 


76 


006746 






77 








78 








79 








80 


006754 


004710 




81 








82 








S3 








84 


006756 






85 


006764 


012637 


OOOOOOG 


86 


006770 


012637 


OOOOOOG 


87 


006774 


01 26 OP 




88 


006776 


012601 




89 


007000 


012600 




90 


007002 


012637 


000132' 


91 
92 
93 


007006 


1 1 2637 


000011 ' 








94 








95 


007012 


000655 




96 








97 








98 








99 


007014 


012603 




100 








101 








102 








103 


007016 


105337 


000010' 


104 


007022 


002002 




105 


007024 


013706 


000120' 


106 








107 








108 








109 


007030 


012604 




110 


007032 


012605 
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MOV 
MOV 
MOV 
BEQ 
CLR 
TST 
BEQ 



FQ$PA5<R3). @#KPAR5 ; Set mapping for kernel PAR 5 
FQ$PA6<R3), S#KPAR6 i Set mapping for kernel PAR 6 



FQ*UFB<R3), R4 

7* 

<R4) + 

<R4) 

8* 



J Get address of FQ*LNK in user's fork block 
; Br if user did not specify a fork block 
i Say fork request has been processed 
iHas fork request been cancelled? <FQ*RTN) 
i Br if cancel led 



Set up context based on information in fork block 



7$: MOV FQ*R4<R3),R4 

MOV FQ*R5<R3),R5 

MOV FQ*R2<R3),R2 

MOV FQ*R1(R3),R1 

MOV FQ*RTN(R3),R0 

MOV RO, CURFRK 

MOV FQ*R3<R3),R3 
EWABL 

Call the fork routine 

CALL ©RO 

F^estore context 



/Restore R4 & R5 for fork routine 



i Get address of fork routine to be called 
; Remember address of current fork routine 



8*: 



DISABL 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 



<SP)+, e#KPAR5 
<SP)+, @#KPAR6 
<SP)+, R2 
<SP)+, Rl 
<SP)+. RO 
( SP ) +, CURFRK 
<SP)+, FRKPRl 



; ** Enable interrupts ** 



iCall routine at fork level 



Make sure interrupts are disabled 
Restore kernel-mode PARS register 
Restore kernel-mode PAR6 register 



; Address of currently running fork routine 
i Restore fork priority 



J* 



See if there are more pending fork requests 

BR 2* ; See if there are more fork requests to do 

We have processed all fork queue requests. 

MOV (SP)+, R3 



Smitch back to user's stack. 



DECB 


STKLVL 


BGE 


9* 


MOV 


USP, SP 



i Going down one level on interrupt stack 
; Br if still more levels on int stack 
i Switch back to user's stack 



Completed interrupt processing 



9*: 



MOV 
MOV 



<SP)+, R4 
<SP)+, R5 



R5 was saved by JSR R5, INTEN 



( 

I 
( 

i 

i 

I 
< 

i 

i 

i 

c 

i 

I 
I i 

i 

i 

i 

• i 
i 

I 

i 

i 

( 
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•:;) 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



At this point me are about to do an RTI to return from an interrupt 

or from an EMT. We are running on the user's stack in his context block 

and all of his registers are intact. 



007034 
007042 
007044 
007050 



007052 
007060 
007062 



007066 
007074 
007076 



007102 
007110 
007112 
007120 
007122 
007130 
007132 
007134 



007140 
007142 
007146 



007150 
007154 
007160 



007164 
007170 
007172 
007176 



007200 
007202 
007206 



032766 
00 1 502 
105737 
002077 



0000000 000002 
000010' 



SYSXIT: BIT 
BEQ 
TSTB 
BGE 



#UM0DE>2<SP) 
DORTI 
STKLVL 
DORTI 



; Are we about to return to user mode? 
; Br if not 

; Are u>e running on system stack? 
/Br if running on system stack 



We are about to return to user mode. 

; ■»* Enable *«• 



010146 
113701 



032761 
00 1 402 
000137 



032761 
00 1413 
032737 
00 1 004 
042761 
000403 
012601 
000137 



012601 
10 5737 
00 1 406 



004737 
004737 
004737 



005737 
00 1 427 
105737 
00 1 024 



010146 
013701 
005037 



0000000 

OOOOOOG OOOOOOG 
0000000 



ENABL 

MOV 

MOVB 



Rl, -<SP) 

CORUSRiRl ;Get job index number 



See if a Floating Point Unit (FPU) exception interrupt occurred. 



BIT 
BEQ 
JMP 



#*FPUEX, LSW<R1) /Did a FPU exception interrupt occur? 

3* i Br if not 

FPTRPX /Do FPU exception processing 



See if user typed ctrl-D to force entry to the debugger. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 3*: 

OOOOOOG 

OOOOOOG 

4*: 



BIT #*DBGBK/ LSW9<R1 ); Does user want to force a breakpoint? 

BEQ 2* /Br if not 

BIT #PO*DBG/ PRIVCO i Is user authorized to use debugger? 

BNE 4* /Br if yes 

BIG #«DBGBK/ LSW9<R1)/ Clear effect of ctrl-D 

BR 2* /Don't enter debugger 

MOV <SP)+/R1 

JMP DBOBRK /Enter debugger 



See if a job scheduler cycle was requested. 



2*: 



000004 ' 



MOV 


<SP)+/R1 


TSTB 


DOSCHD 


BEO 


1* 



; DO WE NEED TO CALL THE JOB SCHEDULER? 

J BR IF NOT 



We need to call the job scheduler. 



000210' 
005122' 



OOOOOOG 
OOOOOOG 



CALL 
CALL 
CALL 



CHKABT 

SCHED 

CHKABT 



SEE IF JOB HAS BEEN ABORTED 

CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 



1$: 



See if user did a . SPCPS to alter return address from completion routine. 

/DID USER DO A .SPCPS? 

i BR IF NOT 

/Is user still in a compl routine? 

/DON'T TRIGGER .SPCPS UNTIL EXITING FROM COMPL 

User did a . SPCPS — Set new PC for return. 



TST 


SPCPS 


BEQ 


DORTI 


TSTB 


CURCP 


BNE 


DORTI 



OOOOOOG 
OOOOOOG 



MOV 
MOV 
CLR 



R 1 / - < SP ) 
SPCPS/ Rl 
SPCPS 



;GET ADDRESS OF USER'S INFORMATION BLOCK 
/ REMEMBER THAT WE HAVE DONE THE . SPCPS 
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58 007212 

59 007220 

60 007224 

61 007230 

62 007232 

63 007236 

64 007240 

65 007242 

66 007246 
67 

68 
69 

70 007250 

71 007256 

72 007260 

73 007300 

74 007306 

75 007310 
76 

77 
78 
79 007330 



052737 
062701 
016646 
106611 
016646 
106641 
106541 
012666 
012601 



023727 
001410 

027727 
001410 



0000000 

000004 

000004 

000002 



000002 



0000000 



000600 123456 DORTI: 



170520 123456 1*: 



BIS ttUPMODE. ©#PSW 

ADD #4, Rl 

MOV 4 ( SP ) , - < SP ) 

MTPD (Rl) 

MOV 2 ( SP ) , - < SP ) 

MTPD ~(R1) 

MFPD -(Rl) 

MOV ( SP ) +, 2 ( SP ) 

MOV (SP)+, Rl 



MAKE SURE PREVIOUS MODE = USER 

POINT TO CELL WHERE OLD PS IS TO BE STORED 

GET OLD PS VALUE 

STORE OLD PS IN USER'S INFO BLOCK 

GET OLD PC VALUE 

STORE INTO USER'S INFO BLOCK 

GET NEW PC FROM USER'S INFO BLOCK 

SET NEW PC FOR RETURN 



See if a system stack overflow occured 



CMP SSEND, #123456 

BEQ 1* 

DIE #EM*SOF, «1 

CMP ©INTSND. #123456 

BEQ 2* 

DIE #EM*SOF. #2 



000002 



Return to the user. 
>*: RTI 



GENERAL SYSTEM STACK OK? 

BR IF OK 

GENERAL SYSTEM STACK <SS) OVERFLOW 

INTERRUPT STACK 0K7' 

BR IF OK 

INTERRUPT STACK (INTSTK) OVERFLOW 



RETURN FROM INTERRUPT OR EMT PROCESSING 



TSEXEC - 
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request 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








30 








21 








22 








23 








24 


007332 


010446 




25 








26 








27 








28 


007334 


004737 


007442 ' 


29 








30 








31 








32 








33 


007340 


012664 


0000000 


34 


007344 


012664 


OOOOOOG 


35 


007350 


010164 


0000000 


36 


007354 


010264 


0000000 


37 


007360 


010364 


0000000 


38 


007364 


012502 




39 


007366 


001416 




40 


007370 


003006 




41 


007372 


020227 


OOOOOOG 


42 


007376 


101003 




43 


007400 


1 1 0264 


0000000 


44 


007404 


000407 




45 


007406 


060502 




46 


007410 


162702 


000002 


47 


007414 


010264 


OOOOOOG 


48 


007420 


010522 




49 


007422 


010512 




50 


007424 


016402 


OOOOOOG 


51 

k:<-) 


007430 


010564 


OOOOOOG 


53 








54 








55 


007434 


004737 


007534 ' 


56 








57 
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SBTTL FORK 



Queue a fork request 



FOf^K 15 called to queue a fork request. 

Note that IIMTEN must have been called before FORK is called and that 
nothing may be pushed on the stack between the INTEN call and the FORK. 
A fork request is held until the last active interrupt routine is ready 
to return to the job that was originally interrupted then the fork 
requests are processed in order by priority and* within the same priorityj 
by the order in which they were queued. 
The form of the call to FORK is: 



JSR 
. WORD 



R5, FORK 

<f orkblock- 



or <priority> 



differs from the RT-11 fork routine in that TSX 
of fork request blocks rather than using blocks 



a user 
to 127 
(0) in 



which 



The TSX fork routine 

uses an internal set 

provided by the caller of FORK. 

The word following the JSR R5* FORK may contain the address of 

fork block, or it may contain a priority value in the range 1 

which becomes the fork processing priority* or it may be zero 

case a default fork priority <FP*DEF) is used. 



FORK: MOV R4, -<SP) 

Get a free fork block from the free list. 

CALL FRKGET i Get a free fork block 

We tjot a free fork block. R4 = Address of block. 
Set up information in fork request block. 



Save other registers 

Get addr of user's fork block or fork prio. 

Br if no user fork block or specified prio. 

Br if offset to a fork block 

Is this a priority or an address? 

Br if it is the address of a user fork block 

Set fork priority 

5$: ADD R5j R2 > Get address of FGl*RTN in user's fork block 

Get pointer to start of user's fork block 
Save pointer to user's fork block 
Make F<3$LNK in user's fork block non-zero 
Make FQ*RTN in user's fork block non-zero 

4-$: MOV FQ*R2(R4)>R2 ; Recover R2 

Save address of routine to call 

Add fork block to queue of waiting fork blocks 

CALL FORKQ i Queue the fork request 

Finished — Return to INTEN routine which will check for fork requests 



MOV 


<SP)+, FQ$R4<R 


MOV 


<SP)+, FQ*R5<R 


MOV 


Rl. FQ*R1<R4) 


MOV 


R2, FQ*R2<R4) 


MOV 


R3, FQ*R3(R4) 


MOV 


(R5)+, R2 


BE« 


4* 


BGT 


5* 


CMP 


R2, #FP*MAX 


BHI 


5* 


MOVB 


R2, FQ*PRI<R4) 


BR 


4* 


ADD 


R5, R2 


SUB 


#2, R2 


MOV 


R2. FQ*UFB<R4) 


MOV 


R5, (R2)H- 


MOV 


R5, (R2) 


MOV 


FQ*R2(R4)>R2 


MOV 


R5, FQ*RTN(R4) 
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58 i 

59 007440 000207 RETURN i Return to INTEN routine 



TSEXEC 
FRKGET 



TSX- 
Get 
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a free Fork biock 



. SBTTL FRKGET — Get a free Fork block 



3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 

14 007442 
15 

16 
17 

15 007442 

19 007450 

20 007454 

21 007456 

22 007470 

23 007476 
24 

25 
26 

27 007504 

28 007512 

29 007520 

30 007526 
31 

32 

33 

34 007532 

35 



FRKGET is called to get a free fork block. 

If no free fork blocks are available, a system crash occurs. 

Outputs: 
R4 = Address of fork block. 
The following fields are initialized in the fork block: 

F«*PRI = Default fork priority <FP*DEF) 

FG*PA5 = Current KPAR5 mapping 

FG*P A6 = Current KPAR6 mapping 

FO*UFB = 

RKGE't : 



Get a fork block from the free list 



013704 
001005 



OOOOOOG 



016437 OOOOOOG OOOOOOG 3*: 



DISABL 

MOV 

BWE 

DIE 

MOV 

ENABL 



> ** Disable interrupts »* 
FREFRK, R4 ; Get address of a free fork block 
3* i Br if fork block is available 

#EM*FRK ; System halt if no free fork blocks 

FQ*LNK<R4), FREFRK; Remove fork block from the free list 

; ** Enable interrupts «•«• 



Set default values in the fork block 



1 1 2764 
013764 
013764 
005064 



000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



MOVE 

MOV 

MOV 

CLR 

F i n i s h e d 

RETURN 



#FP*DEF, FQ*PRI<R4); Set default priority 
@#KPAR5, FQ*PA5<R4>i Save KPAR5 mapping 
@#KPAR6, FQ*PA6<R4)i And PAR6 
FQ*UFB(R4) ; No user fork block 
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4 








5 








6 








7 








e 








9 








10 


007534 


010246 




li 

13 


007536 


010346 










14 








15 








16 


007540 


012703 


OOOOOOC 


17 


007544 






IS 


007552 


016302 


0000000 


19 


007556 


001406 




20 


007560 


126462 


0000000 OOOOOOG 


21 


007566 


101002 




22 


007570 


010203 




23 


007572 


000767 




24 








25 








26 








27 








28 


007574 


010463 


OOOOOOG 


29 


007600 


010264 


OOOOOOG 


30 








31 








32 








33 


007604 






34 


007612 


012603 




35 


007614 


012602 




36 


007616 


000207 
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. SBTTL FORKQ "-- Queue a fork request 



FORKQ is called to place a fork request block on the fork-pending 
list. The queue entry is entered in the request queue based on its 
priority as stored in the FQ*PRI field of the fork block. 



Inputs: 
R4 = Address of fork request block to be queued. 



FORKQ: 



MOV 
MOV 



R2, -<SP) 
R3. -<SP) 



Do a linear search down the list of current fork entries and look 

for the correct position to insert our new entry based on its priority. 

MOV #FRKCQE-FQ*LNK/ R3i Get pointer to dummy fork block at head 
DISABL i ** Disable interrupts «* 

1$: MOV FQ*LNK<R3), R2 ; Get address of following fork block 

BEQ 2* 'Br if we should insert at end of chain 

CMPB FQ*PRI(R4)> FQ^PRI <R2)i Is next entry of lower priority? 

BHI 2* ;Br if yes 

MOV R2, R3 iLink forward to next entry 

BR 1* j And continue searching for insert point 

Insert following the entry pointed to by R3 and before the entry 
pointed to by R2 



2$: 



MOV 
MOV 

F" i T I i s h e d 



R4, FQ*LNK(R3) 
R2, FQ*LNK<R4) 



EMABL 
MOV 
MOV 
RETURN 



jMake previous entry point to us 
iMake new entry point to following one 



; «« Enable interrupts «■* 



(SP)+, R3 
< SP ) +, R2 
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5 
6 
7 
8 
9 
10 












11 












12 












13 












14 


007620 


1 0046 








15 


007622 


010146 








16 


007624 


010246 








17 


007626 


010446 








18 


007630 


005764 


0000000 






19 


007634 


001074 








20 


007636 


016402 


OOOOOOG 






21 


007642 


042702 


177400 






22 


007646 


00 1 467 








23 


007650 


006302 








24 


007652 


020227 


OOOOOOG 






25 


007656 


101063 








26 


007660 


032762 


OOOOOOG 


OOOOOOG 




27 


007666 


001457 








28 












29 












30 












31 












32 


007670 


004737 


OOOOOOG 






33 


007674 


152761 


OOOOOOC 


OOOOOOG 




34 


007702 


110261 


OOOOOOG 






35 


007706 


012700 


OOOOOOG 






36 


007712 


005762 


OOOOOOG 






37 


007716 


00 1 402 








38 


007720 


012700 


OOOOOOG 






39 


007724 


110061 


OOOOOOG 


.1 




40 


007730 


116261 


OOOOOOG 


OOOOOOG 




41 


007736 


112761 


OOOOOOG 


OOOOOOG 




42 


007744 


005725 








43 


007746 


010561 


OOOOOOG 






44 


007752 


010564 


OOOOOOG 






45 


007756 


016461 


OOOOOOG 


OOOOOOG 




46 


007764 


010461 


OOOOOOG 






47 


007770 


062761 


OOOOOOG 


OOOOOOG 




43 


007776 


013761 


OOOOOOG 


OOOOOOG 




49 


010004 


010104 








50 


010006 


004737 


OOOOOOG 






51 












52 












53 












54 












55 












56 


010012 


012604 








57 


010014 


012602 
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SBTTL SYNCH — Queue a synch request 



SYNCH is called to queue a synch request. 



A synch request can be made 
it must run in user state, 
request for the job. 
The synch routine is called 
the job is selected and &et 



by a handler when it reaches a point when 
The call to SYNCH simply queues a synch 

from the job scheduler at the point where 
up ready to run in user state. 



Inputs: 
R4 ~ Address of 7-word synch control block. 
R5 = Address followina synch call (JSR R 5, SYNCH) 



3YNCH: 



MOV 
MOV 
MOV 
MOV 
TST 
BNE 
MOV 
BIC 
BEQ 
ASL 
CMP 
BHI 
BIT 
BEQ 



RO, 


-<SP) 


Rl, 


-(SP) 


R2, 


-<SP) 


R4, 


-<SP) 


SN*RTN<R4> 


9* 




SN*J0B<R4>>R2 


#-^c 


<377>, R2 


9* 




R2 




R2, 


#LSTSL 


9* 




#«DILUP, LSW<R2) 


9* 





IS THIS SYNCH BLOCK FREE? 

BR IF NOT 

GET JOB NUMBER FROM SYNCH BLOCK 

KILL SIGN EXTENSION FROM HANDLER MOVB 

ZERO IS INVALID 

CONVERT TO WORD TABLE INDEX # 

IS IT VALID LINE #? 

BR IF NOT 

IS JOB LOGGED ON? 

BR IF NOT 



Sytith block looks good. 

Queue a completion request for the job. 



1*: 



CALL GETRTQ > 

B I SB #<QF*SYN ! QF*SCR>> 

MOVB R2, CQ*J0B<R1) > 

MOV #S*TWFN, RO i 

TST LITIME<R2) ; 

BEQ 1* i 

MOV #S*HICP, RO ; 

MOVB RO, CQ*RNS<R1) ; 

MOVB LPRI<R2),CQ$PRI<R 

MOVB #CP*SYN, CQ*CP < R 1 ) 

TST (R5)+ 

MOV R5, CQ*RTN<R1) 

MOV R5, SN*RTN<R4) 

MOV SN*ID<R4), CQ*RO<R 

MOV R4, CQ*R1<R1) 

ADD #CQ*RTN, CQ*R 1 < R 1 ) 

MOV @#KPAR5, CQ*PA5(R1 

MOV R1,R4 i 

CALL QCOMPL i 



Get a free 
CQ*FLG<Rl)i 
Set job ind 
Get compl p 
Is this job 
Br if not 
Get compl p 
Set executi 
1 ) i Set exec 
i Set compl 
Point to su 
Set address 
Set flag sa 
1 ); Set sync 
Set address 



queue element (address in Rl ) 
Synch routine* call in kernel mode 
ex number for compl routine 
riority for non-interactive jobs 
interactive? 

rio for interactive jobs 
on state for compl routine 
ution priority 
routine class priority 
ccessful return point for synch 

of routine to call 
ying synch block is busy 
h ID value to be passed in RO 

of cell to be cleared by call 



)iSet PAR 5 mapping to use for synch routine 
Get address of completion request block to R4 
Queue a completion request for the job 



Successful completion of synch request. 

Do a RTS PC to return from handler interrupt. 

Synch routine will be called from job scheduler. 



MOV 
MOV 



<SP)- 
(SP)- 



R4 

R2 



TSEXEC ■ 


-- TSX-P 


I u s E X e 


SYNCH - 


— Quf?ue 


a sync 


58 


010016 


012601 


59 


010020 


012600 


60 


010022 


005726 


61 


010024 


000207 


62 






63 






64 






65 






66 


010026 


012604 


67 


010030 


012602 


68 


010032 


012601 


69 


010034 


012600 


70 


010036 


000205 
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MOV 


< SP ) +, R 1 


MOV 


<SP)+, RO 


TST 


<SP) + 



Error 



; POP R5 VALUE 



- Invalid synch control block. 

Return to word following .synch request. 



9*: 



MOV 


<SP)+, 


R4 


MOV 


<SP>+, 


R2 


MOV 


(SP)+, 


Rl 


MOV 


(SP)+, 


RO 


RTS 


R5 





i ERROR RETURN FROM . SYNCH 



TSEXEC 
QUNSIG 
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- Signal quantum expiration 



SBTTL QUNSIG 



Signal quantum expiration 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



010040 



010040 032061 0000000 
010044 001407 



010046 010046 

010050 012700 000007 

010054 

010062 012600 



010064 000200 



QUNSIG is called when a time-slice quentum expires to see if the 
user wants to have the terminal bell rung to signal that the time 
slice has expired. 
The SET SIGNAL command is used to control this feature. 

Form of the call: 

JSR RO, QUNSIG 
.WORD $SGxxx 

Where fSGxxx is the flag in LSW8 that controls which quantum expired. 

Inputs: 
Rl = Job index number. 

QUNSIG: 

See if used wants to be notified about this quantum running out 



BIT 
BEQ 



(R0)+/ LSW8(R1 ) ; Is notification wanted? 



9* 



i Br if not 



Ring terminal bell 



9*: 



MOV 


RO, -<SP) 


MOV 


#7, RO 


OCALL 


QUECHR 


MOV 


(SP>+, RO 


Finished 




RTS 


RO 



i Get bell character 
J Send bell to terminal 



i Return 



TSEXEC — TSX-P:Iu5 Exf?cutive 
SYSHLT • - Fatal system halt 



1 



4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 

20 

21 

22 

23 
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SBTTL BYSHLT — Fatal system halt 



SYSHLT is entered when a Fatal system error is detected. 
An error message is printed and the system is halted. 



Inputs; 
(SP) == Address of call to SYSHLT. 
DIEMSG = Address of error message to print. 
DIEARG == Argument value to print with error message. 



10066 
10074 
10102 
10106 
10112 
10116 
10120 
10124 
10126 
10134 
10140 
10142 
10150 



013737 OOOOOOG 000034 



SYSHLT: 
SYSHLl: 



012637 
010637 
020627 
103402 
012706 
000005 
052737 
105737 
001403 
052737 
000137 



000042 ' 
000044 ' 

ooooooe 

001000 

OOOOOOG 
OOOOOOG 

ooooooe 

OOOOOOG 



OOOOOOG 



OOOOOOG 



1$: 



MOV 

DISABL 

MOV 

MOV 

CMP 

BLD 

MOV 

RESET 

BIS 

TSTB 

BEQ 

BIS 

JMP 



e#KPAR5, TRPAR5 



(SP)+> DI 
SP,DIESP 
SP, #VPAR 
2* 
#SS, SP 



EPC 



#MMENBL, @#SROMMR 

MEM256 

1* 

#EMMAP ! I 

SYSDIE 



Save current kernel par 5 mapping 
DISABLE ALL INTERRUPTS 
GET ADDRESS OF CALL TO SYHLT 
Save stack pointer at time of crash 
Are uje running on context blk stack? 
Br if not 

RUN ON SYSTEM STACK NOW 
RESET ALL DEVICES 

MAKE SURE MEMORY MANAGEMENT ENABLED 
DOES MACHINE HAVE AT LEAST 256 KB? 
BR IF NOT 
OMAP, ®#SR3MMR j TURN ON 22-BIT MEMORY MANAGEMENT 
i ENTER OVERLAY TO PRINT ERROR MESSAGE 
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INIJMP --- Final sgstem ini tial i xati on 



1 

2 

3 

4 

5 

6 010154 

7 

8 

9 

10 010154 000137 OOOOOOG 

1 1 000202 ' 
Errors detected: 



SBTTL INIJMP — Final system initialization 



Turn on kernel mode memory management and perform final system 
initialization. 

INIJMP: 

Now jump to EXCINI in TSMISC overlay to complete initialization 

JMP EXCINI 
. END START 



*** Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







8709 Words < 35 Pages) 

17920 Words ( 70 Pages) 

RT--:l 1 



Elapsed time: 00:00:56.48 

DK: TSEXEC. LP: TSEXEC=DK: TSEXEC. MAC/C/N: SYM 
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27-02 


























LCXPAR 


1-82 


7-29 


9-38* 


14-112 


14-122 
























LF 


2-10# 
































LHIPCT 


1-104 


30-14 


30-16* 


30-30* 


30-35 


30-41* 


31-13* 




















LIOCNT 


1-48 


7-19 






























LIOHLD 


1-73 


7-21* 


19-76 


27-84 


























LITIME 


1-84 


30-12 


30-24* 


45-36 


























LvJSW 


1-57 


17-33* 


18-46 




























LMEMIN 


1-76 


9-21 


20-54* 


20-55* 


20-83* 


20-84* 


21-13* 




















LNBLKS 


1-79 


12-30 


12-37 


14-59 


20-42 


20-50 


20-53* 


20-68 


20- 


-81 


20- 


-82* 


20- 


-83 


20- 


-96 


LNSBLK 


1-103 


12-31 


12-38 


20-55 


20-84 


20-98 






















LODMAP 


7-47 


1 5-f3# 






























LOKSWP 


1-32 


2-48# 






























LOMAP 


1-92 


10-25 


12-23 


1 3-37 


13-54 
























LPARBS 


1-79 


9-42* 


14-62 




























LPRI 


1-68 


19-63 


19-91 


19-93* 


19-184 


19-186* 


23-17 


23-39 


24- 


-18 


24- 


-40 


45- 


-40 






LQLINK 


1-70 

25-27* 


6-31 
25-32* 


23-42 
25-35* 


23-52 
26-20 


23-53* 


23-54* 


23-55* 


23-57* 


24- 


-43 


25- 


-13 


25- 


-22 


25- 


-23 


LQUAN 


1-91 


27-54* 


31-12* 




























LSCCA 


1-62 


7-55 






























LSTATE 


1-60 


6-27 


19-188 


23-36 


23-64* 


24-37 


25-36* 


26-18 


28 


-11 














LSTSL 


1-77 


12-32 


45-24 




























LSW 


1-57 


6-29 


7-10 


7-17 


14-144 


19-172 


21-14 


21-16* 


28- 


-35 


33- 


-87* 


41- 


-19 


45- 


-26 


LSWli 


1-50 


1 7-28 


18-44 


33-17 


























LSW4 


1-57 


7-53 


7-61* 


14-23 


14-120 
























LSW6 


1-99 


7-78 


12-35 


13-42 


13-59 


14-56 


14-94 




















LSW7 


1-92 


7-43 


14-146* 




























LSW8 


1-58 


46-21 






























LSW9 


1-69 


14-107 


19-31 


19-129 


28-39 


33-50 


41-25 


41-29* 


















MA*RGN 


1-71 


13-94 






























MAPPAR 


1-52 


10-24 


11-20 


12-19 


13-30 


20-18 






















MAP SYS 


1-33 


16-23# 






























MAPUSR 


1-95 


7-35 


14-143* 


1 5-29* 


























MAXSRD 


1-47 


34-23 






























MBFFLO 


1-28 


2-4 9« 






























MEM256 


1-55 


47-20 






























MEMPAR 


1-31 


35-25# 






























MEMSWP 


1-32 


2-47# 


21-17* 




























MENXPN 


1-37 


20-99 


21-13*{ 




























MINCTR 


1-34 


2-58# 






























MINTIM 


1-72 


1-87 































TSEXEC — TSX-Flus Executive Hd MACRO V05. 04 Friday 18-Dec-S7 07:56 Page S-5 
Cross reference table (CREF V05. 04) 



MMENBL 


1-55 


33-10 


47-19 
































MRKTHD 


1-25 


2-46# 


































NEWUSR 


1-50 


7-12 


































NMUMB 


1-90 


32-16*- 


































0. PAR 


1-101 


16-29 


































ODTTRP 


1-29 


2-35# 


33-45 
































OUTBSY 


1-22 


2-29# 


8-10 
































OVRADD 


1-101 


16-28 


































OVRHC 


1-101 


7-80 


46-28 
































PO*DBG 


1-51 


41-27 


































PCCCR2 


1-76 


37-13 


































PKSTAT 


5-32 


17-15# 


19-54 
































PMBASE 


1-30 


2-70# 


































PMCELS 


1-31 


2~74# 


































PMFLGS 


1-30 


2-69# 


































PMNBPC 


1-30 


2-72# 


































PMPAR 


1-31 


2~73# 


































PMRUN 


1-31 


2-7 5# 


































PMSIZE 


1-97 


2-74 


































PMTOP 


1-30 


2-7 1# 


































PMUSER 


1-30 


2-6S# 


































PRIVCO 


1-51 


41-27 


































PROFLO 


1-76 


37-11 


































PROSKP 


2~25# 


37-lSi^ 


37-20* 
































PSW 


1-78 


6-23-)^ 


6-37* 


7-6* 


7-57* 


16- 


-25 


16- 


-26* 


17- 


-20 


17-21* 


18- 


-17* 


18- 


-58* 


18- 


-59* 




19-67# 


19-84* 


19-134* 


19-167* 


23-69* 


25- 


-12* 


26- 


-15* 


26- 


-23* 


27-78* 


32- 


-9* 


32- 


-17* 


32- 


-29* 




35-10 


36-15 


38-35 


38-40* 


39-31* 


39- 


-53* 


40- 


■6* 


40- 


-29* 


40-40* 


40- 


-53* 


40- 


-76* 


40- 


-84* 




41-13* 


41-58* 


43-18* 


43-23* 


44-17* 


44- 


-33* 


47- 


-12* 




















QCKCPL 


27-31 


27-38 


27-45 


27-52 


27-76# 




























QCOMPL 


1-54 


45-50 


































QCPU 


1-35 


30-39 


31-10# 
































QF$IOT 


1-54 


19-119 


































QF*SCR 


1-58 


19-74 


19-114 


45-33 






























QF*SYN 


1-54 


19-119 


45-33 
































QFREE 


1-77 


19-106 


































QHDSPN 


1-28 


27-5I# 


































QHDSPX 


1-35 


27-44# 


































QHIPRI 


1-24 


19-192 


29-13 


30-7# 






























QNSPND 


1-27 


27-30# 


































QNSPNX 


1-35 


21-19 


27-37# 
































QSRCH 


1-23 


26-1 5# 


29-11 
































QUECHR 


1-53 


46-28 


































QUNSIG 


1-39 


30-25 


30-37 


46-1 7# 






























R*UBAS 


1-98 


20-25* 


































RMNPDR 


1-81 


2-83# 


14-115 


14-116 






























RPAR 


1-64 


14-135 


14-136 


34-36* 






























RPDR 


1-64 


14-131 


34-43* 
































RUNQHD 


1-35 


1-37 


2-13# 


6-25 


23-34 


23- 


-63* 


24- 


-35 


25- 


-15 


25-18* 


25- 


-30* 


26- 


-16 






RUIMQTL 


1-35 


2-14# 


23-47* 


23-62* 


25-19* 


25- 


-25* 
























S$$HIP 


1-74 


28-11 


































S*$RT 


1-82 


19-188 


































S**RUN 


1-53 


6-27 


23-18 


24-19 






























S$CPU 


1-51 


31-10 


































S*HICP 


1-85 


30-17 


45-30 
































S*INWT 


1-56 


1 -93 


































S*IOFN 


1-51 


28-17 


30-42 
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S$LDW 


1-104 


23-26 


24-27 




S$RT 


1-104 


23-22 


24-23 




S*SPND 


1-48 


7-23 






S*TMWT 


1-56 


1-93 






S*TWFN 


1-54 


45-35 






S«WFM 


1-79 


21-18 






SB$LNK 


1-89 


32-15 






SB$PNT 


1-62 


32-23* 






SB*TXT 


1-62 


32-22 






SCHED 


1-21 


5-15# 


27-56 


41-43 


SETMAP 


1-32 


7-45 


14 -16# 


20-106 


SLTSIZ 


1-41 


2-67# 






SW«ID 


1-100 


45-45 






SN$JOB 


1-100 


45-20 






SN*RTN 


1-100 


45-18 


45-44* 




SNMSHD 


1-89 


32-10 


32-15* 




SPCPS 


1-52 


41-48 


41-56 


41-57* 


SPDJOB 


1-36 


2-16# 






SPSAVE 


1-76 


5-33* 


7-65 




SR*PAR 


1-47 


34-35 






SR*PDR 


1-47 


34-42 






SR*PX 


1-47 


34-30 






SROMMR 


1-55 


33-10* 


47-19* 




SR3MMR 


1-55 


47-22* 






SS 


1-29 


1-39 


2~4# 


5-31 


SSEND 


1-39 


2-5# 


41-70 




START 


4-6# 


48-11 






STKLVL 


1-24 


2-2 1# 


38-29 


39-36* 


STOP 


1-21 


28-41 






SUTOP 


1-25 


20~13# 






SWAPER 


1-53 


8-17 






SWPCHK 


6-18 


8-5# 






SWPCOT 


1-37 


2-lS# 






SWPJOB 


1-40 


2-66# 






SWPPOS 


1-40 


2-6 5# 






SYNCH 


1-31 


45-14# 






SYPNCR 


1-32 


2-62# 






SYSDIE 


1-68 


1-75 


47-23 




SYSHLl 


1-22 


47-12# 






SYSHLT 


1-59 


5-26 


33-68 


35-17 


SYSMAP 


1-33 


2-36# 


16-27* 




SYSXIT 


1-25 


41-6# 






TIKCNT 


1-34 


2-51# 


37-25* 




TK5CNT 


1-34 


2~56# 






TRPIO 


1-24 


33-32# 






TRP14 


1-27 


33-4 1# 






TRP20 


1-27 


33-60# 






TRP24 


1-27 


33-6S# 






TRP250 


1-23 


33-10# 






TRP34 


1-28 


33-72# 






TRP4 


1-24 


33-1 5# 






TRPAR5 


1-22 


2~37# 


33-25* 


33-34* 


TRPBPT 


1-69 


33-56 






TRPCOM 


1-68 


33-64 


33-78 




TRPMAP 


33-75 


34-1 5# 






TRYMEM 


1-37 


9-30 


10-16# 





19-52 19-197 47-17 
40-19* 40-103* 41-8 



35-25 35-29 41-72 41-75 43-21 47-1 1# 



47-11* 
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TRYPLS 


1-36 


12-14# 










TRYRGN 


1-36 


13-2i# 










TSEXEC 


l-6# 


1-26 










TSXTX 


1-68 


33-28 


33-37 








UEXINT 


1-31 


35-10# 










UEXRTN 


1-33 


35-21# 










UFPTRP 


1-65 


17-41 


18-21 








UHIMEM 


1-83 


20-23fJ 


36-28 








UIOCNT 


1-29 


2-rj7# 










UMDDE 


1-S2 


19-148 


33-41 


41-6 






UMSPSV 


1-38 


17-24* 


18-55* 


19-57* 






UPARO 


1-78 


14-34-1* 


14-75* 


14-135* 


15- 


-15 


UPARl 


1-78 


14~38K- 










UPAR6 


1-81 


14~123« 










UPAR7 


1-81 


14-99* 


14-113* 








UPDRO 


1-78 


14-36* 


14-73* 


14-87* 


14- 


■13 


UPDRl 


1-78 


14-40* 










UPDR6 


1-81 


14-125* 










UPDR7 


1-81 


14-101* 


14-115* 








UPliODE 


1-74 


7-57 


17-21 


18-17 


18- 


-58 


UPSTAT 


7-66 


1S-15# 


19-198 








UREGO 


1-23 


29-10# 










USP 


1-22 


2-59# 


39-42* 


40-105 






USRJOB 


1-36 


1-63 


2-1 5# 


28-37 






VHIPCT 


1-104 


30-27 


31-13 








VINTIO 


1-88 


30-28 










VPAR5 


1-70 


22-23 


47-15 








VPRIHI 


1-68 


19-174 


19-190 


23-20 


24- 


•21 


VPRILQ 


1-68 


19-176 


19-180 


19-182 


23- 


-24 


VPRIVR 


1-57 


19-178 










VSWPFL 


1-50 


8-5 










WINDSP 


1-49 


7-80 











34-38* 



15-17 34-45* 



19-134 19-148 36-15 41-58 
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DISABL 3-33# 6-23 19-67 25-12 26-15 27-78 32-9 38-40 39-31 40-6 40-29 40-53 

40-84 43-18 44-17 47-12 

ENABL 3-37# 6-37 7-6 19-84 19-167 23-69 26-23 32-17 32-29 40-40 40-76 41-13 

43-23 44-33 
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